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Various classical methods exist for extracting the zeros of a 
polynomial 

/PCX) = a/ + a/" 1 + ... + a N+1 

where a 1 # 0 and a ^» a 2» * * * » a N+i are COTn P lex numbers, when N=l,2,3,4. 
For polynomials of higher degree, iterative numerical methods must be 
used. In this material four iterative methods are presented for approxi- 
mating the zeros of a polynomial using a digital computer. Newton's 
method and Muller's method are two well known iterative methods which 
are presented. They extract the zeros of a polynomial by generating a 
sequence of approximations converging to each zero. However, both of 
these methods are very unstable when used on a polynomial which has 
multiple zeros. That is, either they fail to converge to some or all 
of the zeros, or they converge to very bad approximations of the poly- 
nomial's zeros, 

i 

This material introduces two new methods, the greates common 
divisor (G.C.D.) method and the repeated greatest common divisor (repeated 
G.C.D.) method, which are superior methods for numerically approximating 
the zeros of a polynomial having multiple zeros. 

The above methods were all programmed in FORTRAN IV and comparisons 
in time and accuracy are given. These programs were executed on the 



IBM 360/50 computer as well as the UNIVAC 1108 and the CDC 6600 
computer. 

This material also contains complete documentations for six 
FORTRAN IV programs. Flow charts, program listings, definition of 
variables used in the program, and instructions for use of each program 


are included. 



PREFACE 


Four iterative methods for approximating the zeros of a polynomial 
using a digital computer are presented in this material.. Chapter I is 
an introduction. Chapters II and III contain Newton's and Muller's 
methods, respectively. Chapters IV and V present two new methods which 
depend upon finding the greatest common divisor of two polynomials. 
Chapter VI contains a comparison of the four methods. Flow charts, 
FORTRAN IV programs, and complete program documentations for these four 
methods are presented in appendicies A through H. 

I would like to express my appreciation to the National Aeronautics 
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Houston, Texas, for their financial support in making this work possible 
under. grant number NASA NGR 37-002-084, I would also like to thank 
Randy Snider, a graduate assistant supported by this grant, for the 
great deal of work he put in on the FORTRAN programs. In particular, 
the material on Newton's and. Muller's Methods included in this paper is 
part of his masters thesis at Oklahoma State University. 
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CHAPTER I 


INTRODUCTION 

Frequently in scientific work it becomes necessary to find the 
zeros, real or complex, of the polynomial of degree N 

PCX) = a x X N + a ^" 1 + ... + aN X + a N+1 

where a^ ^ 0 and the coefficients a^ f a ^ » a K+ ^ are complex numbers. 
Various classical methods calculate the exact roots of polynomials of 
degree 1,2,3, or 4. For polynomials of higher degree, no such methods 
exist. Thus, to solve for the zeros of such polynomials, numerical 
methods of iteration based on successive approximations must be 
employed. In the following material four such methods are given which 
are particularly suited for modern high speed computers. 

Newton’s method is an iterative procedure which generates a 
sequence of successive approximations of a zero of P(X) by using the 
iteration formula 

X n + 1 " X „ - P<X n )/P'(X n ). 

An initial approximation to the zero is required to start the iterative 
process. Under certain conditions this sequence will converge quadrat - 
ically to the desired root. It is, however, necessary to compute the 
value of the polynomial and its derivative for each step in the 
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iterative procedure. Once a zero of P(X) has been found, it is divided 
out of P (X) , giving a deflated polynomial of lower degree. P(X) is 
replaced by the deflated polynomial and the iterative process is 
applied to extract another zero of P(X). This procedure is repeated 
until all zeros of P(X) have been found. The zeros may then be re- 
checked and their accuracy possibly improved by using them as initial 
approximations with Newton's process applied to the full (undeflated) 
polynomial . 

Muller's method is also an iterative procedure generating a 
sequence X^ ,X^ , . . . ,X^, . . . of successive approximations of a root of 
P (X) » This method converges almost quadratically near a zero and does 
not require the evaluation of the derivative of the polynomial. 

Muller's method requires three distinct approximations of a root to 
start the process of iteration. A quadratic equation is constructed 
through the three given points as an approximation of P(X). The root 
of the quadratic closest to is taken as , the next approximation 
to the zero. This process is then repeated on the last three points of 
the sequence. After a root of P(X) has been found, P (X) is deflated, 
and replaced in the above procedure by the deflated polynomial. After 
all zeros of P (X) are found from successive deflations, they are 
improved as in Newton's method. 

The greatest common divisor method reduces the problem of finding 
all zeros (possibly multiple zeros) of P(X) to one of extracting the 
zeros of a polynomial P^X) = P(X)/D(X), all of whose zeros are simple. 
D(X), the greatest common divisor of P(X) and its derivative, p ' (x ) , is 
obtained by repeated application of the division algorithm. Once P^X) 
is obtained, some suitable method such as Newton's or Muller's method 
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is used to find the zeros of P^X). By finding all the zeros of P-^CX), 
all the zeros of P (X) are obtained. The multiplicity of each zero may 
then be determined. 

The repeated greatest common divisor method repeatedly uses, the 
greatest common divisor method to extract the zeros of P(X) and their 
multiplicities at the same time. That is, the repeated greatest 
common divisor method reduces the problem of finding the zeros of P(X), 
which possibly has multiple zeros, to one of finding the zeros of a 
polynomial which has only simple zeros and the zeros of this polynomial 
are all the zeros of P (X) of a given multiplicity «, The repeated 
greatest common divisor method must also use a supporting method such 
as Newton's method or Muller's method. 

Chapters II-V contain the examinations of these methods, Each 
examination includes a development of the method together with the 
conditions necessary for convergence of the method. Chapter VI contains 
a comparison of the methods giving advantages and disadvantages of 
each method, 

A complete set of documentations is given for six FORTRAN IV 
programs in Appendices A— H. Flow charts, program listings, definition 
of variables used in the program, and instructions for use of each 
program are included. 

It should also be noted that the expressions "zero of a polynomial" 
and "root of a polynomial" and the words "zero" and "root" are used 
interchangeably in this material. 



CHAPTER II 


NEWTON'S METHOD 

X. Derivation of the Algorithm 

Newton's method is probably the most popular iterative procedure 
for finding the zeros of a polynomial. This fact is due to the excel- 
lent results obtained, the simplicity of the computational routine, and 
the fast rate of convergence obtained provided the initial approxima- 
tion of a zero is close enough. Also, the method can be applied to the 
extraction of complex as well as real zeros. 

Consider the polynomial 

P(X) = a.X N + a.X^ 1 + ... + a X + a M ^. (2-1) : 

1 l N N+l .... ......... 

where a^ ^ 0 and the coefficients . . . ,a^_^ are complex. The 

algorithm for Newton's method can be derived by approximating P(X) by a 
Taylor series expansion about an approximation, X^, of a zero, a, of 
P(X). Using only the first two terms of the expansion, the expression 

.... P(X) & P(X 0 ) + p’(X 0 )<X - X 0 ) 


is obtained. If this equation is solved for P(X) » 0, then ' 

0 i P(x 0 ) + p'(x 0 )(x - x Q ) ■ 



results. Rearranging terms produces 
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0 £ P(X 0 ) + p'(x 0 ) X - p'(x Q ) x 0 


followed by 

p'(X Q ) x 0 - P(X Q ) i p'(X Q ) X 


from which division by P (X_) produces 

X Q - P(X 0 )/P'(X Q ) i X 

which is the basic formula for Newton's method. Thus, in general, we 

th th 

obtain the (n+1) approximation, X of a from th® n approxima- 
tion, X , by 

X., - x - P(X )/p’(X ). (2-2) 

n+1 n n n < 


As a result of repeated us© of this algorithm, we obtain the sequence ; 


X 0’V X 2 



(2-3) 


of successive approximations of the root, a. It should be noted that 
an initial approximation is necessary to start the iterative process 
-for each new zero; that is , a polynomial of degree N may require N 
initial approximations . 

In order to use equation (2-2), it is necessary to compute, for 

each X , the value of the polynomial, P (X ) , and its derivative, 
n n 

p'(X ). The division algorithm states that if P(X) and G(X) are 
polynomials, then there exists polynomials H(X) and K(X) such that 
P(X) * H(X) G(X) + K(X) where K(X) « 0 or deg. K(X) < deg, G(X), From ; 
this expression of P(X), the following remainder theorem obtained : 



6 


Theorem 2.1. If P(X) is a polynomial and c is a complex number, then 
the remainder obtained from dividing P(X) by (X - c) is P(c)« 

The proof of Theorem 2.1 is given in [G, P. 102]. Thus, P(X) can 
be written as P(X) = (X - c) H(X) + R where P(c) ** R. P (X) is then 
obtained by the following theorem, the proof of which can be found in 
[b, PP. 105-106]. 

Theorem 2.2 . If P(X) and H(X) are polynomials and c is a complex num- 
ber such that P (X) » (X - c) H(X) + 'R where P(c) » R, then the remain- 
der obtained from dividing H(X) by (X - c) is P (c)« 

From synthetic division, an algorithm known as Horner f s Method is 
acquired for computing P(X ) and P (X^) . 

Theorem 2.3 . Let P(X) be defined as in equation (2-1) and let d be a 
complex number. Define a sequence b^ ,b 2 , . . . jbj^ by 

b l = a l > 

b i ™ a i + db i-l ^ = » • * • • 

Define another sequence c-,c 2 ,...,c by 

c 5=3 b 
, i i 

C j " b j + dc j-l ^ ” 2,3 N) . 

Then P(d) « b N+1 and P*(d) « c N « The elements b 1 ,b 2 » . . . ,b N are the 
coefficients of the polynomial H(X) in Theorem 2.2 when P(X) is divided 
by (X - d). 
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These formulas are derived in [3, PP. 106-107]. Thus with equation 
(2-2) and the iteration formulas of the previous theorem, Newton's 
method can now be applied to generate the sequence (2-3) which will 
converge to the root, a, if the convergence conditions given in 
Theorem 2.4 are satisfied. 


A criterion is needed to determine when to terminate the sequence 
(2-3); that is, when has a zero been found? For convergence of the 
sequence, there must exist a term in the sequence beyond which the 
difference between any two successive terms is arbitrarily small. 
Therefore, it is desirable to make the quotient sufficiently 

near 1. From equation (2-2) 


i 


p <y 

X n+1 X n + 1 




P(X ) 
n 

X 

n 


P f (X ) 
n 

X n+1 


X n+1 . 


Thus 


|P(X ) 

i n 



P’(X ) 


X 

1 n 

> 

n 

X 


X 

n+1 


n+1 


where P (X ) and X , ^ 0. Thus, iterations are continued until an X 
n n+x 

is obtained such that jP(X n )/p’ l x n+ ]J is as small as desired. 

After a zero, a, of P(X) has been found, the term (X - a) is syn- 
thetically divided out of P(X) by deflation using Theorem 2.3 obtaining 
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a polynomial, P^X), of degree N-l. The root finding process is then 
repeated to extract a zero, a^, of P^(X)» P(X) can be written as 

P(X) - (X - a) P^X) + R 

where R ® P(a). But P(a) » 0. Therefore, substitution produces 

P(X) = (X - a) P^X). 


Now P^a^) ■ 0 implies that P ) ** 0* Hence, is a zero of P(X). 

By the process of root finding and successive deflations, zeros 
Oq ,q^ , . , . ><*^2. ^e deflated polynomials 


P(X) - P 0 (X),P 1 (X),...,P N ^(X), 


respectively, are extracted. Each (i - 0 ,1 ,2 , . . . ,N-1) is a zero of 
P(X) since each oc^ is a zero of P^^ (X) »P ^_2 (X) , . . * ,P^ (X) ,P (X) ♦ 

After all zeros of P(X) have been found, it may be possible to 
improve their accuracy by using them as initial approximations with 
Newton’s method applied to the full (undeflated) polynomial, P(X). This 
should correct any loss of accuracy which may have resulted from the 
successive deflations. 

2. Convergence of Newton’s Method 

i 

The following theorem from [ 2, PP. 79-81] gives sufficient condi- 
tions for the convergence of sequence (2-3). 

Theorem 2,4 . Let P(X) be a polynomial and let the following conditions 


be satisfied on the closed interval [a,b]: 



1 . 


P (a) P (b) < O' 

2. p’(X) t 0, X e [a,b] 

3. p"(X) is either ^ 0 or 0 for all X e [a,b] 

4. If c denotes the endpoint of [a,b] at which Jp (X) j 
is smaller, then Jp (c)/P* (c) ] b - a. 


Then Newton’s method converges to the (only) solution, s, of P(X) « 0 
for any choice of X^ in [a,b). 

When convergence is obtained, it is quadratic; that is, 


e 


i+1 


I F "<V 


2 

I 


where F^) * X i - P (X i > /P ' (X^ , r\ ± is between X ± and the zero, a, and 
e^ is the error in X^. This means that the error obtained in the 
(i-Pl) th iteration of Newton’s algorithm is proportional to the square 
of the error obtained in the iteration. A proof of quadratic con- 
vergence can be found in [1, ^P. 31-33]. 

3. Procedure for Newton's Method 


The general procedure for applying Newton’s method is enumerated 
sequentially as follows, starting with initial approximation X^: 


1,; Calculate a new approximation X n+ ^ by 


x , - x - p<x )/p (x ). 

n+1 n n n 


2. Test for convergence; that is , test 

l p <V /p,( Vl/l x „ + il < e 

for some e chosen as small as desired. 


3. If convergence is obtained, perform the following: 
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a. Save X^ + ^ as the desired approximation to 
a zero of P(X). 

b. Deflate P(X) using X , - . 

n+1 

c. Replace P(X) by the deflated polynomial. 

d. Return to step 1 with a new initial 
approximation. 

4. If no convergence is obtained, increase n by 1 and 
return to step 1. 

In order to prevent an unending iteration process in case the 
method does not produce convergence, a maximum number of iterations 
should be specified. If convergence is not obtained within this number 
of iterations, change the initial approximation and return to step 1 
above . 

4. Geometrical Interpretation of Newton’s Method 

A geometrical interpretation of Newton’s method is given in 

Figure 2.1. X i is an approximation to the zero, a. P ' (X^ is the slope 

of the line tangent to P(X) at X.. is the intersection of the 

i i+l 

tangent line with the x axis. 

5. Determining Multiple Roots 
-i P (X) has m distinct zeros, then P(X) can be written as 

e i e o 6 

P(X) “ a x (X - a x ) (X - ,a 2 ) ...(X - aj m , (m N) 

where is a zero of P(X) and is the multiplicity of 

(i = l,2,...,m). Consider the root a ^ . Dividing out the term 
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(X - a^) by deflating P(X) gives P-^X) of degree^N-l which can.be 
written as 

1 ® ' 

P 1 (x) - (X - 0l ) - 1 (X - o 2 ) ...(X - a ) J ...(X - o m ) m . 

Evaluating P. (X) at the zero, a , gives P, (a,) - 0 if e. > 1. ThuB. 

1 J 1 j j 

after a zero, a, of P(X) is determined by Newton's iterative process 
and the current polynomial is deflated giving P (X) , then P (a) is 

Jp X 

evaluated. If P^a) <_ e for some small number e, a is a root of p (X) ' 
and thus has multiplicity at least equal to two. P 1 (X) is then de- ■ 
flated giving p 2 (X). if P 2 (a) 5. e » “is of multiplicity at leapt three. 
This process is continued until a deflated polynomial P. (X) is encoun- 

1C 

tered such that either deg. P^(X) ® 0 or P^(a) > e. a is then a zero 
of multiplicity k+1. 



Figure 2. 1. Geometrical Interpretation of Newton's Method 



CHAPTER III 


MULLER'S METHOD 

1. Derivation of the Algorithm 

Muller's method in [4] is an iterative procedure designed to find 
any prescribed number of zeros, real or complex, of a polynomial. The 
method does not require the evaluation of the derivative and near a 
zero the convergence is almost quadratic. 

Consider the polynomial 

P(X) = a x X N + a 2 X N_1 + ... + (3-1) 

with complex coefficients such that £ 0. Given three distinct 
approximations, X^_ 2 ^,X , to a root, a, of P(X), the problem is to 
determine x n+ 2 suc ^ a way as t0 generate a sequence 

X 1 ,X 2 ,X 3 X n ,X n+1 ,... (3-2) 

‘ ' J 

of approximations converging to a* The points (X^ 2> P(X n 2^* 

,P(X n _2>) , and (X n ,P(X n )) determine a unique quadratic polynomial^ 
Q(X), approximating P(X) in the vicinity of X 9 ,X - ,X . A general 

proof of this can be found in [ 2 , PP. 133-134]. Thus, the zeros of Q(X) 
will be approximations of the zeros of P(X) in this region of approxima- 
tion’. From the general representation in [2,; P. 184] of the Legrangian 
interpolating polynomial, the representation of Q(X) is given by 


12 
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(X - X ) (X - X ) 

Q(X) - ( _ X )(X - X ) P< V 

n n x xi xi . ** 


<X-X)(X-X J 

j. S n ; >2 p f y ) 

+ (x . - x )(x , - x a n Vr 

v n-l n n-1 n-2 


(X - x)(x - X ,) 

4- H n — p (Y \ 

(X 0 - X )(X 0 - X A \ v W 

v n-2 n n-2 n-l 


which can be rewritten as 


Q(X) « Q(X - X n + X n ) 


(X - X - ) (X - X . + X . - X A 
n n-l n n-l n-l n-2 


(X - X )(X - X + X - X Y + X . - X 0 ) 
n n n n-l n-l n-2 

(X - X ,)(X r - X 0 ) 
n n-l n-l n-2 


P(X n-! ) 


(X - X )(X - X + X - X ,) 

. 5 n n n-l p / x 

(X - X . + X , - X 0 )(X , - X A v n-2'* 

n n-l n-l n-2 n-l n-2 


In order to simplify this expression, introduce the quantities 


Then 


h ** X - X ,, h “ X - X , 
n n n-l n. 


Q(X) = Q(X n + h) 


(h + h)(h+h + h 
n n - n-l 

h (h + h i ) 
n n n-l 


P(X n ) 


h(h + h + h ,) 
n n-l 

h h . 
n n-l 


P(3 W 
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h (h + h ) 

+ (h + h -)h P ^ X n-2^ 

n n-1 n-1 


h 2 + 2hh + hh ,+h 2 +hh , 

n n-1 n n n-1 

h 2 + h h - 

n n n-1 


P(X„> 

n 


h + hh + hh . 

, szt P( x ) 

h h ,, n-1 

a a~] L 


h + hh 

+ ~P(X .). 

h h , + h 2 , n_2 

n n-1 n^l 


Collecting terms containing like powers of h produces 


Q(X) » Q(X n + h) 


P( V 

h 2 + h h , 
n n n-1 


P(X n-l> . P(X n-2 ) \ „2 

h n h n-l h h + h 2 

n n-1 n-1/ 


i + h ) P(X ) 

n n-1 n 

(h + 
n 

h 2 + h h . 
n n n-1 


i + h ,) P(X ) 
n n-1 n 


l 2 + h h , 
n n n-1 


P(X n ) K 1 

n n-l 

p( Vi> 

> 2 
"h . + h h , 
n-1 n n-1 

h h . 
n n-1 


h h - 
n n-1 


h p(x ) 

n n— z 

h h . + h 2 , 
n n-1 n-rl 


P < X n-2> 

hh , + h 2 , 
n n-1 n-1 


, (2h nVl + h n-l> P( V (h n + h n-l> P < X n-l> . h n P < X n-2> 

l h n 2h n 1 + h n h n 2 l h n h n-l h h , + h 2 j 

\ n n-1 n n-1 n n-1 n-1/ 
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(h 2 h , + h 2 ,h ) P(X ) 
n n-l n-l n n 

h , + h h ^ 
n n-l n n-l 


2 2 

Using Che common denominator, h h , + h h 1( and combining tanas 
° n n-i n n-i 

yields 


Q (X + h) 
^ n 


r P (X ) h - - P(X .Xh + h ,) + P(X n 9 ) h \ 9 

n n-l n-l n n-l n-2 n \ ^2 

j 5 1 h 

h h ,+.hh . 

n n-l n n^l 


<2h h , + h 2 ) P(X ) - (h + h ,) 2 ?(.X„ ,) + h 2 P(X 
v n n-l n-l n n n-l n-l n n-2 

— ' ? 2 ■ — *—* " “ 

h V - + h h \ 

n n-l n n-l 


Ihv 


(h 2 h + h 2 h ) P(X ) 
n n-l n-l n n 

h \ . + h h 2 - 

n n-l n n-l 


Multiplying by h /h ^ results in 


Q(X n + h) 
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Let q = 



Q(X + h) 
n 


+ h) . / P( V % - P < X n-l>^n 2 + V + P ^n-2> *n \ 2 


q +1 
n n 


(2 q n+ i) P(X n ) - (q n+ l) 2 P(X n _ 1 ) + q n 2 PCX^) 


q +1 


( q n +i) P(X n ) 

V 1 


Now let 


Then 


and 


A n = V P( V - W 1 ) P < X n -l> + -V P ( X „-2 ) 
B n ■ (2 V P) P <V " <<ln +1)2 P(X n-l ) + P(X n-2 ) 

C n " ^ n +1 > P ^ X n >* 


Q(X n + h) - Q (X + qh ) 
n n ^ n 


A q + B q + C 

Q (X + qh ) = -2 H n 

n n n q +1 


‘n 
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Solving the quadratic equation Q(X + qh ) 53 0 and denoting the result 

n n 


by q n+1 gives: 


- B + /B 2 - 4A C 
n —v n n n 


n+1 


2A 


n 


and the new approximation is found as follows: 


h , - X . T - X 
_ n+1 _ n+1 n 

l n+l h h 

n n 


Thus 


X- - » X + h q t • 
n+1 n n ^n'+l 


In order to avoid loss of accuracy, q^ +1 can be written in a 
better form as follows: 


*n+l 


- B + /b 2 - 4A C B + /B 2 - 4A C 

n ~ V n n n . n — >/ n a n 

2A j 

n B + /B 2 - 4A C 

n -%/ n n n 


2 2 

*7 B +B -4AC 
n n n n 

2A (B + /b 2 - 4A C ) 
n n —J n n n 


- 2C 


l n+l 


B + /B 2 - 4A C 
n —,y n n n 


0 - 3 ) 


The sign in the denominator should be chosen such that the magnitude of 
the denominator Is largest, thus causing |q +1 | to be smallest. This, 


•I closest to X . 
n+1 n 


in turn, will make X 
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Note that each iteration of this process requires three approxima- 
tions, X _ ,X ,X , in order to compute X ... Thus, when X M is 
V n-2 n-1 n' . n+1 n+1 

found, X , ,X ,X ,, are used to compute X , n ; that is, the last three 
* n-1 n n+l r n+2 . 

terms of the generated sequence are used to compute the next term. 

Convergence of the sequence (3-2) to a zero is obtained when the 
elements X, and X, . of the sequence are found such that 


l\ + i - \1 

l\ +i l 


< e > \ + i * 0; 


that is, the ratio of the change in the approximation to the approxima- 
tion itself is as small as desired. 

In order to use the iterative formulas, it is necessary to compute 

th^ value, P(X.), of the polynomial P(X) at the approximation X.. The 
3 J 

procedure fpr doing this is discussed in Chapter II, § 1. The itera- 
tion formulas are given in Theorem 2.3 of Chapter II. 

After a zero, a, of P(X) has been found, P(X) is deflated as 
described in Chapter II, § 1, and the process repeated to extract a 
zero, a^, of P^CX). By applying Muller's method to successively 
deflated polynomials, all the zeros of P(X) are obtained. For more 
detailed discussion of this procedure see Chapter II, § 1, keeping in 
jnind that Muller's instead of Newton's method is used. 

Muller's method requires three initial approximations to a zero in 
order to start the iteration process, If three are not known, the 
values X^ = -1, X 2 “1, X^ “0 can be used. 

Convergence of Muller’s method is almost quadratic provided the 
three initial approximations are sufficiently close to a zero of P(X)« 
This is natural to expect since P(X) is being approximated by a 



19 


quadratic polynomial. Quadratic convergence means that the error 

th 

obtained in the (n+1) step of the iterative process is proportional 

th 

to the square of the error obtained in the n iteration. However, no 

general proof of convergence has been obtained for Muller's method. It 

has produced convergence in the majority of the cases tested. 

In application of Muller's method, an alteration should be made to 

handle the case in which the denominator of equation (3-3) is zero (0). 

This occurs whenever P(X ) ■ P(X ■ -) *■ P(X If this happens, set 

n n-i n—z 

Vi ml - 

Another alteration which should be made in actual practice is to 
compute the quantity I p ^ x n+ ]_) l/ I p C x n H whenever the value P(X n+ ^) is 
calculated. If the former quantity exceeds ten (10), q is halved 
and h^, x n+ j_* an< * P( x n+ -^) are recomputed accordingly. 


2. Procedure for Muller’s Method 


The basic steps performed by Muller's method are listed sequen- 
tially as follows, starting with initial approximations X^, X£, and X^, 

1. Compute h^, q n , D^, B^, C^, q n+ j_ a s defined previously, 

2. Compute the next approximation X _ by 

n-rl 

X » X + h q . 
n+1 n n ^n+1 

3. Test for convergence,* that is, test 


' X n + 1 - X nl/l X n + li 


for some suitably small number e. 

4. If the test fails, return to step 1 with the last 

three approximations X , X , X , , 

n+1 n n-1 
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5. If the test passes, do the following: 

a. Save X ^ as the desired approximation 
to a zero. 

b. Deflate the current polynomial using 

c. Replace the current polynomial by the 
deflated polynomial. 

d. Return to step 1 with a new set of initial 
approximations. 

In order to avoid an unending iteration process in case the method 
does not produce convergence, a maximum number of iterations should be 
specified. If convergence is not obtained within this number, of itera- 
tions, the initial approximations should be altered. 

3. Geometrical Interpretation of Muller’s Method 

Figure 3.1 0 shows the geometrical interpretation of Muller’s method 
for real roots of P (X) and the quadratic Q (X) ; The root of Q(X) closest 
to X^ is chosen as the next approximation X^^. 

4. Determining Multiple Roots 


For a discussion concerning multiple roots see Chapter II, § 5. 




CHAPTER IV 


GREATEST COMMON DIVISOR METHOD 
i. Derivation of the Algorithm 

The greatest common divisor (g.c.d.) method reduces the problem of 
finding all the zeros of a polynomial, possibly having multiple zeros, 
to one of solving for zeros of a polynomial all of whose zeros are 
simple. 

t h 

Consider the N degree polynomial 

N N-l 

P(X) = a-X + a 9 X iN X + ... + a X + a , 

1 z N N+l 

where a^ 7 ^ 0 and , • « . s a ^ + ^ are com pl ex numbers. If P(X) has m 

distinct zeros, a , , . . . , then P(X) can be expressed in the form 

e -. e e 

P(X) = (X - a x ) (X - o 2 ) ... (X - a ) m (4-1) 

where e^ is the multiplicity of a., i = l,2,.,.,m. The derivative of 
P(X) is 

p'(X) = N a.X ^ 1 + (N-l) a 0 X ^ -2 +... + « 

1 z N 

which can also be expressed as 


22 


i 
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e -1 e -1 e -1 i m 

P (X) = a,(X - a t ) 1 (X - a,) 2 . . . (X - c< m > “ V jj (X - a^). 


1=1 j =1 


(4-2) 


The greatest common divisor of P(X) and P (X) is obtained from the 
following theorem. 

th 

Theorem 4.1 . Let P(X) be an N degree polynomial having m distinct 
zeros a i» a 2 * ’ * * *°m raulhiplicicy e x ,e 2 * 8 • * > e m respectively. Then the 
polynomial 


0 — J 0 ~] 0 “X 

D (X) = (X - a-) 1 (X - ou) 2 ... (X - a ) m 

x z m 


is the unique monic greatest common divisor of P(X) and its derivative 

p’(x). 

Proof . Since the set of all polynomials over the complex number field 

is a unique factorization domain and since each factor X - a. is irre- 

x 

ducible, it follows from (4-1) and (4-2) that D(X) is the unique monic 

t 

greatest common divisor of P(X) and P (X). 

It follows from Theorem 4.1 that each zero of D(X) is also a 

i 

zero of P (X) and P (X). Hence we have the following result. 

Theorem 4,2 . If P(X) is a polynomial, then P(X) and P ' (X) are rela- 
tively prime if and only if P(X) has no multiple zeros. 

Consider the polynomial H(X) obtained by dividing P(X) by its 


monic g.c.d. , D(X) . 
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H(X) = P(X)/D(X) 



i=l 


The zeros of H(X) are all simple zeros and are also all the distinct 
zeros of P (X) . Use of the g.Cod. method involves computation of H(X) 
when given P(X)» 

In order to obtain H(X) , a computational algorithm is necessary to 

T 

find the g.c.d. of P(X) and P (X), The general method for computing 
the g.c.d. of two polynomials is as follows: Let R^(X) and R^(X) be 

two polynomials having degrees Nq and respectively such that 

<_ Nq. The g.c.d,. of Rq(X) and (X) is desired. By the division 
algorithm, there exists polynomials S^(X) and R 2 (X) such that 

R q (X) = R X (X) S 1 (X) + R 2 (X) 


where either R 2 (X) « 0 or deg. R 2 (X) < deg. R (X) „ Similarly if 
R 2 (X) £ 0, there exists polynomials S 2 (X) and R^(X) such that 

R 1 (X) = S 2 (X) R 2 (X) + R 3 (X) 

where either R 3 (X) = 0 or deg. R 3 (X) < deg. R 9 (X) . Continuing in the 

above manner, suppose R^CX) and R i+1 (X) have been found where 

deg. R_^_^(X) < deg. R^(X) . Then there exists polynomials 

S . . - (X) such that 
1+1 
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R.(X) = R. + 1 (X) S. + 1 (X) + R. + 2 (X) 


where either R (X) = 0 or deg. R (X) < deg. R (X) . Then we obtain 
1 ItZ 1"KL 

a sequence Rq(X) ,R^(X) , . . . ,R^. (X) >R^ + ^ (X) such that 

deg. R_^(X) < ^eg* *■ = Since a polynomial cannot 

have degree less than zero , the above process , in a finite number of 
steps (at most N^) , results in polynomials (X) , S (X) an ^ 

with deg. R^CX) c deg. R^_^(X) such that 


r k _ 1 (x) = r r (x) s r (x) + r k+1 (x) 


and R k+1 (X) = 0. 

,R k+ i(X) be defined 
as above. Then R^(X) is the greatest common divisor of Rq(X) and 

Proof . It is clear that R^(X) divides R K _^(X). If R^(X) divides R^(X) 
for 0 <_ j < i £ k, then (X) = R. +1 (X) S^ +1 (X) + R^ +2 (X). Thus, ^(X) 
divides R (X) and it follows by induction that R^X) divides both R (X) 
and R^ (X) . By reversing the inductive argument given above, it is easy 
to see that if L(X) divides R Q (X) and R^(X) , the L(X) divides R^X) for 
i = 0,1,..., K. Therefore, L(X) divides R^CX) which shows that R^X) is 
the greatest common divisor of Rq(X) and R^(X)„ 

The above theorem tells how to obtain the greatest common divisor 

of two polynomials. A machine oriented method is now developed for 

computing the sequence of R,(X)'s. Beginning the sequence with R (X) 

3 0 

and (X) , the polynomial R^ + ^(X) of the sequence is derived from R.(X) 


Theorem 4.3 . Let the sequence R^(X) ,R^(X) , . . . ,R^(X) 
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and ^ (X) as follows: Let R^_^(X) of degree be given by 


R i_l< x > 

= r i-l,l X + r i-l,2 X + + r i-l,N H X + r i-l,N i _ 1 +l 


and R^(X) of degree be given by 


N. N.-l 

R.(X) = r„ , X 1 + r. 0 X 1 +. 

1 x,l 1,2 


+ r . „ X + r. , 1 
i.N. i.N.+l 

’ i ’ i 


where N. < N. ... Define U- (X) by 
i ~ l-l 1 


f l (X) ^ r i-l,l / r i,l^ 


X 


N. -N, 
l-l i 


Then define T^(X) by 


T X (X) = R 1 - 1 (X) - U 1 (X) R i (X) 


N. 1 
l-l 


[r i-l,l “ r i,l ^ r i-l,l / r i,l^ 

+ [r i-l ,2 - r i ,2 (r i-l,l/ r i,l )] X 


N. ,-l 
l-l 


+ . . « 


+ *- r i-l,N. +1 r i,N. +1 ^ r i-l,l / r i,l^ 

l-l i-l > 


where r. , = 0 for i > N.+l. 
i*J 3. 

We consider three cases. 


( 1 ) 

( 2 ) 


If T 1 (X) = 0, then R ± (X) = R^X); that is, R (X) is 
the g.c.d. of Rq(X) and R^ (X) . 

If T^X) 7 ^ 0 and deg, T-^X) < N^, then R i+ ^(X) = T (X) . 
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(3) If T^(X) ^ 0 and deg. T^(X) = >_ N^, then define 


U 2 (X) by 


, (x) “ 


X 


M -N. 

1 l 


where 


M M -1 

Ti(X) = t 1 ^ 1 X + t lj2 x + ... + t l,M 1 X + t l,M 1 +l, 


Def ine (X) = T^(X) - (X) R_^(X) which can be expressed by 


T 2 (X) [t l,l (t l,l/ r i,l* r i,l 3 X 


Mr 1 


+ [t l,2 " (t l,l / r i,l ) r i y 2 ] X 


M -2 


+ ... 


+ ^l^+l (t l,l/ r i,l ) r i,M 1 +l ] 


where r^ = 0 for j > N^+l. We again consider the following three 
cases . 

(1) If T 2 (X) - 0, then R^(X) is the g.c.d. of Rq(X) 
and R^(X) • 

(2) If (X) ^ 0 and deg. T 2 ( x ) < de S* R .j_00, then 
R i+ l<X) • T 2 (X). 

(3) If T 2 (X) ^ 0 and deg. T 2 (X) = >_ N^, then define 

U 3 <X) by 

M 0 -N. 


/ i-Xr, J-i * 

r i,x> x 
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where 


T 2® t 2,l 


M M -1 

X +t 2,2 X + 


+ t 


2 ,M, 


X + t 


2 ,M 2 +1 


Since deg. (X) < deg. T (X) , then this process is finite (not to 

exceed N. _.) ending, for some integer S, in T (X) such that 

XX o 

(1) Tg(X) = 0 and R^(X) is the g.c.d. of Rq(X) and (X) or 

(2) Tg (X) ^ .0 but deg. Tg(X) < deg. R^(X), in which case 
T s (X) = R i+1 (X) . 

Thus, using this algorithm and given R Q (X) and R^X), the sequence 
Rq(X) ,R^ (X) ,R 2 (X) , . . . ,R^ (X) ,R i+1 (X) can be generated such that either 

(1) = ^ anc * is the g.c.d. of Rq(X) and 

R^(X) or 

(2) Rf + i (X) ^ 0 and < N^« In a finite number of 

iterations, R^X) , the g.c*d. of R Q (X) and R^X), 

can be obtained. 


Recall that we wanted to obtain the polynomial H(X) = P(X)/D(X) 
where D(X) is the g.c.d. of P(X) and P ’ (X) . Thus, after obtaining D(X) 
by the above algorithm, it is necessary to divide P(X) by D(X) obtain- 
ing H(X) all whose zeros are simple. 

Once H (X) is 'obtained, an appropriate method such as Newton's 
method or Muller's method is applied to extract the zeros of H(X) . This 
gives all the zeros of P(X). 

As in Newton's or Muller's method, the zeros may be checked for 
accuracy and possibly improved by using them as initial approximations 
with the particular method applied to the full (undeflated) polynomial, 
P(X). 
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2. Determining Multiplicities 

After all zeros of P(X) are found, the multiplicity of each zero 
can be determined by the process outlined in Chapter II, § 5. 

3. Procedure for the G.C.D. Method 


The basic steps performed by the greatest common divisor method 
are listed sequentially as follows: 


1. Given a polynomial, P (X) , in the form 

P(X) = a-X N + a.X^ 1 + ... + a xV X + a xlJ - . 

12 N N+l 


2 . 


Calculate the derivative, 
P'(X) = b^X^ _1 + b 2 X N ~ 2 + 

b 2 = ( N_1 ^ a 2» * • * > b N * a N* 


P (X), of P (X) in the form 

. . . + b. T where b, = Na. , 

N 1 1 


3. Find D(X) , the g.c.d. of P(X) and P ' (X) using the 
algorithms developed above. 

4. Calculate H(X) = P(X)/D(X), the polynomial having 
only simple zeros. 


5. Use some appropriate method to extract the zeros 
of H (X) . 


6. Determine the multiplicity of each of the zeros 
obtained in step 5. 



CHAPTER V 


REPEATED GREATEST COMMON DIVISOR METHOD 
1. Derivation of the Algorithm 

The repeated greatest common divisor (repeated g.c.d.) method makes 
repeated use of the g.c.d. method to extract the zeros and their mul- 
tiplicities of a polynomial with complex coefficients. That is, the 
repeated g.c.d. method reduces the problem of finding the zeros of a 
polynomial, P (X) , which possibly has multiple zeros, to one of finding 
the zeros of a polynomial which has only simple zeros and the zeros of 
this polynomial are all the zeros of P (X) of a given multiplicity. 

Let 

P(X) = aj_X N + a 2 X N_1 + ... + a N X + ^ 

= a (X - ct ) 1 (X - a,) 2 ... (X - a ) m 
± ± Z m 

where a. 4 0, each a, is a complex number, and on ,ou , . . . ,a are the 
1 i i z m 

distinct zeros of P(X) having multiplicity , respectively. 

If D^(X) is the monic greatest common divisor of P(X) and P f (X) , then 
Theorem 4.1 shows that 

e,-l e ? -l e -1 

D. (X) - (X - a ) 1 (X - a,) ... (X - a ) m 

J- l Z m 


where we assume that if e. = 1, 

J 


then X - 


cu does not appear in the 
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representation. Let (X) be the monic greatest common divisor of 


D 1 (X) and D^X). Then 


£--2 e^— 2 e -2 

D 2 (X) = (X - a x ) 1 (X - a 2 ) ... (X - cr) m 


where we assume that if e, < 2, then X - a. does not appear in the 
representation. From the above it is clear that the zeros of D^(X) are 
just the multiple zeros of P(X) to one lower power. The zeros of (X) 
are just the multiple zeros of (X) to one lower power. Thus, the 
zeros of D 2 (X) are just the zeros of P(X) which have multiplicity 
greater than two, and their multiplicity in D^CX) is reduced by two. 
Therefore, it follows that 


g 1 (x) = [p(x)/d 1 (x)J/[d 1 (x)/d 2 (x)] = p(x)d 2 (x)/[d 1 (x) j' 


has only simple zeros and they are just ; the simple zeros of P(X). In 
general if D_. (X) has been defined for 1 < j <_i and if is the 

t 

monic greatest common divisor of D^(X) and D_^(X) , then the zeros of 
D_j, + i(X) are the multiple zeros of D_^(X) to one lower power. Thus, the 
zeros of D_^^(X) are just the zeros of P(X) which have multiplicity 
greater than i+1 and their multiplicity in D_^_^(X) is reduced by i+1. 
It follows that 

G ± (X) = [D i _ 1 (X)/ D i (X)]/[D 1 (X)/D i+1 (X)] 

= D^QO D i+1 (X)/[D.(X)] 2 


has simple zeros and they are just the zeros of P(X) that have 
multiplicity i. Thus, we have proven the following theorem. 
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Theorem 5.1 . Let P (X) = + a^X^ ^ + . » . + a^X + where ^ 0 

and a^ ,a^ , . . . are complex numbers. If Dq(X) = P (X) and if 
D i+1^ is mon ^ c greatest common divisor of EL(X) and (X) for 
i >_ 0, then 

G i (x) = D i-i <x) D i + i (x)/[D i (x)]2 

has only simple zeros and they are just the zeros of F(X) that have 
multiplicity i. 

Thus, by the above theorem we can generate a sequence of polynomials 
(X) ,G 2 (X) , . . . ,G^. (X) where the set of zeros of P(X) is the same as the 
set of zeros of this sequence and the multiplicity of each zero in 
P(X) is given by the corresponding subscript on G(X). Therefore, by 
using a method such as Newton's method of Muller's method to calculate 
the zeros of each G ± (X) , we will have the zeros of P(X) along with 
their multiplicities. 

2. Procedure for the Repeated G.C.D. Method 

The basic steps performed by the greatest common divisor method 
are listed sequentially as follows: 

1. Given a polynomial, P(X) , in the form 

, v N N-l 

P (X) = a.X + a~X + ... + a X + a , 

L i N N+l 

2. Set D q (X) - P(X). 

3. Calculate the derivative, D^(X), of D (X) in the 
form 

D 0 <» - V*' 1 + b^" 2 + ... + b M 
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where deg. D Q (X) = M, D Q (X) = d^ 1 + ... + d^ +1 , 
and b^ = Md^, = (M”l)d^, ...» = d^. 

4. Find D^(X), the g.c.d. of Dq (X) and Dq.(X) using the 
algorithms developed in Chapter IV. 

i 

5. Similar to 3., calculate D^(X). 

6. Find (X) , the g.c.d. of D-^(X) and D^(X) using the 
algorithms developed in Chapter IV. 

7. Calculate G(X) = D Q (X) D 2 (X) / [D^X) ] 2 . 

8. Use some appropriate method to extract : the zeros of 
G(X) and assign these zeros the correct multiplicity 
as zeros of P (X) . 

9. Set D 0 (X). = D 1 (X), Dq(X) * d|(X), and TD^X) = D 2 (X) . 
Then repeat 5.-8. above until all the zeros of P(X) 


are found. 



CHAPTER VI 


CONCLUSION 

In order to compare Newton's, Muller's, the greatest common 
divisor, and the repeated greatest common divisor methods, we consider 
the polynomials as being divided into the following classes: 

1. polynomials with all distinct zeros. 

2. polynomials with multiple zeros. 

The comparisons in the following material are results of tests 
made on the IBM 360/50 computer which has. a 32 bit word. The programs 
were successfully run on the CDC 6600 and the UNIVAC 1108 which have a. 
60 bit word and a 36 bit word respectively. It was noted that the 
UNIVAC 1108 is about 15 times faster than the IBM 360/50. The CDC 6600 
is faster than the UNIVAC 1108 but the .difference is not as great as 
that between the UNIVAC 1108 and the IBM 360/50. 

1. Polynomials With all Distinct Zeros 

First we consider the class of polynomials having distinct zeros. 

Newton's method is particularly suited for this class of polynomials. 

Its quadratic convergence is very fast which can save time and money to 

the user. The accuracy obtained is excellent as shown in Exhibit 6.1 

th 

which presents the zeros of a 15 degree polynomial in double precision, 
In most cases, the method produces convergence for almost any initial 
approximation given. 
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Muller’s method also produces good results on this class of poly- 
nomials. The rate of convergence is, however, somewhat slower than 
Newton's method. This fact is especially significant when working with 
polynomials of high degree. The accuracy obtained by Muller’s method 
is comparable to, but does not exceed that of Newton's method. In most 
cases, the accuracy of the two methods does not differ by more than one 
or two decimal places. Exhibit 6.2 shows results of Muller's method 
for the polynomial of Exhibit 6.1. As in Newton’s method, convergence 
is produced for almost any initial approximation given. 

The g.c.d. method, whether used with Newton's or Muller’s method 
as a supporting method on this class of polynomials, is no better than 
Newton’s or Muller's method alone. The reason for this is that the 
greatest common divisor of the polynomial, P (X) , and its derivative is 
1. Thus, H(X) = P(X)/g.c.d. P(X) = P (X) ; that is, the polynomial 
solved by the supporting method is the same as the original polynomial. 
Thus, in this case the g.c.d. method will not produce better results 
than the supporting method used alone. The above comments also hold 
for the repeated g.c.d, method. 

Thus, this class of polynomials presents no difficulty to any of 
these four methods. Newton's method, because of its speed, is there- 
fore recommended. 

2, Polynomials With Multiple Zeros 

Next consider the class of polynomials containing multiple zeros. 
Exhibits 6.3 - 6.26 illustrate output from six different programs using 
the methods described in Chapters II - V. Four polynomials are used 
where the zeros of these polynomials are listed below. The number in 
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parentheses indicates the multiplicity of that zero. 


Polynomial #1 

Polynomial #2 

Polynomial #3 

Polynomial #4 

2+2 i (3) 

-2.33 (1) 

2+2i (3) 

1+i (6) 

1+2 i (2) 

.003 (2) 

1+2 i (2) 

1-i (6) 

-l+.5i (1) 

i (2) 
1.51 (2) 

-1.51 (2) 

31 (3) 

-1-i (3) 

-l+5i (3) 



Note the relationship between polynomials #1 and #3. 

This class presents considerable difficulty for Newton's method, 
especially those polynomials containing zeros of high multiplicity or 
containing a considerable number of multiple zeros. The iteration 
formula for Newton's method is 


X 


n+1 


X n " P( V /P ’ ( V- 


If c is a multiple zero then P(c) = p'(c) - 0. Hence, as X -+■ c, 

n 

p ( x n ) 0 and P (X ) 0 and the iteration formula may be unstable, 

resulting in no convergence or bad accuracy. As the number of multiple 
zeros increases, the polynomial becomes more ill-conditioned, conver- 
gence becomes more difficult, and accuracy, is lost, Thus, the possi- 
bility of convergence decreases. This also holds true if the multi- 
plicities of the zeros are increased. The rate of convergence of 
Newton’s method is much slower for multiple zeros than for distinct 
zeros . Exhibit 6.3 shows a polynomial (#1) containing two multiple 
zeros solved in double precision. Note the following from Exhibit 6,3. 

1. Roots #2 and # 3 are greatly improved by iterating 
on the original polynomial. Distinct roots are 
usually improved in this manner. 
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■ th 

2. The time taken to solve, this 6. degree equation with 

multiple roots is greater than- the time taken by the 

th 

same program to solve a 15. degree polynomial with 
all distinct roots (Exhibit . 61 %):.. : 

3. Root #2 did not. pass the. convergence test after 200 
iterations even though it. was improved. This is 
probably due to the fact that the. polynomial from 
which root 2 was extracted -had only one multiple 
root but the original polynomial from which it was 
extracted the second time had two multiple roots; 

that is, the original polynomial is more ill-conditioned. 

4. The accuracy of the roots before the attempt to 
improve accuracy is very poor;:;. Root #2 is accurate 
to only three decimal places as compared to, the 15 
decimal places in Exhibit 6 . 1 for .distinct roots. 

Root //3 is especially bad r the imaginary part being 
accurate to only one decimal place. 

Exhibit 6.4 uses polynomial #2. Note. the poor results obtained 
before the attempt to improve accuracy, and -the 'improvement afterward. 
Also note that after the attempt to improve accuracy, one of the zeros, 
namely 3i, is lost and an extra zero, namely 1.5, is included in the 
list. (See Appendix A, § 4.) A convergence requirement of 10 ^ was 
used on this polynomial to get it to converge to all of the zeros in a 
maximum number of 200 iterations. 

In many cases, Newton’s method fails to converge altogether. 
Polynomial #3 could not be solved using Newton’s method with a maximum 
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-9 - . 

number . of 200 iterations and a convergence, requirement of 10 

Exhibit 6.5 illustrates the bad results for/ a' convergence requirement 

of 10 ^ which was needed in order to get- .convergence. In Exhibit 6° 6 

-3 

a convergence requirement of 10 was needed in order to get convergence 
to the zeros of polynomial #4. 

Muller's method also encounters difficulty, although to a lesser 
degree than Newton's method, on this class of polynomials . In most 
cases, Muller's method produces convergence even when Newton's method 
completely fails. Newton's method completely failed for polynomials 
#3 and #4 with a convergence requirement of ICT^ but convergence was 
obtained using Muller's method as shown, in .Exhibits 6.9 and 6.10. The 
accuracy obtained by Muller's method is not good but usually better 
than Newton's method using the same convergence requirement. The rate 
of convergence of Muller's method is considerably slower. for multiple 
zeros than for distinct zeros. However ,. for multiple zeros , Muller 's 
method is as fast or faster than Newton's..:.:::.: " 

The g.c.d. method is perfectly suited .for polynomials with multiple 
zeros. All multiple zeros are removed, leaving only a polynomial of 
class 1 (all distinct roots) to be solved- .'This: indicates that best 
results should be obtained by using Newton ' s. method as the supporting 
method, since Newton's method enjoys the. advantage of speed over 
Muller's method for distinct zeros. This has -indeed proved to be true. 
The accuracy of the zeros obtained decreases , 'Somewhat , when the number 
of multiple zeros is increased. . This is . due .to accuracy lost in 
computing the g.c.d. and the quotient polynomial .and not as a result 
of the supporting method. It is easy to see that the accuracy of the 
g.c.d. method is best when the degree of the greatest common divisor of- 
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P(X) and p' (X) is maximum. This is due to the'. fact that the error in 
the greatest common divisor is minimized in. this .case. The accuracy 
obtained using Newton's method and Muller Is. .method 'as ■■ supporting 
methods is about the same. This is verified by. Exhibits 6.11 - 6,14 
(g.c.d. method with Newton) and Exhibits 6.15 - 6.18 (g.c. d. method with 
Muller) . 

Multiplicities are determined with, excellent accuracy. The g.c.d. 
method is not as sensitive to zeros of high -multiplicity or polynomials 
containing a large number of multiple zerosas are both Newton's and 
Muller's methods. A quick comparison of Exhibits 6.11 - 6.14 and 
6.15 - 6.18 with Exhibits 6.3 - 6.6 and 6.7 -'6.10 show that the g.c.d. 
method with either supporting method is much more accurate than either 
Newton's or Muller's method. For example.,.. .Exhibits 6. 5 and 6.9 show 
polynomial #3 for which Newton’s method and .Muller's method both gave 
poor convergence. But Exhibits 6.13 and 6.17 show very accurate results 
for polynomial #3. ..v 

The repeated g.c.d, method is also suited: very:' well for polynomials 
with multiple zeros, Exhibits 6.19 — 6 ,22. and Exhibits 6.23 - 6.26 
are results of the repeated g.c.d. method .with- Newton~ T s method and 
Muller's method as supporting methods, respectively. However, the 
results of the repeated g.c.d. method are not as good as those obtained 
from the g.c.d. method. Since the repeated g.c. 'd. method repeated 
uses the g.c.d. algorithm, the error tends to build 'up in this method 
when a polynomial has several zeros of different multiplicities . This 
can be observed by comparing Exhibits 6.20. and 6,24 with Exhibits 6,12 
and 6.16 on polynomial #2 and by comparing Exhibits 6.21 and 6.25 with 
Exhibits 6.13 and 6.17 on polynomial #3. As was the case of the g.c.d. 
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method, there is little difference between the .repeated gte. d. method 
with Newton's method or Muller's method as a supporting method , This 
can be observed by comparing Exhibits 6.19 6.-22 - :.(Newt on) with 

Exhibits 6.23 - 6.26 (Muller). Even though the 'results of the repeated 
g.c.d. method are not quite as good as the results of. the g.c.d. method, 
they are far superior to the results of both Newton's method and 

Muller's method. ; 

Table 6.1 gives a comparison of the execution times of the six 
methods for polynomials #1 - /M, 


TABLE 6.1 


METHOD 

Newton 

Muller 

G.C.D. with Newton 
G.C.D. with Muller 
Repeated G.C.D. with Newton 
Repeated G.C.D. with Muller 

It is clear from Table 6.1 that 
methods are much faster 

A 


EXECUTION TIME * 

104.16 seconds 
96.79 seconds 
7; 5L seconds 
8.91 seconds 
7 . 71 seconds 
15.16 seconds 

the g.c.d. and the repeated g.c.d. 


than both Newton's and Muller's method on 


These times are from execution runs on the IBM 360/50 WATFOR system. 
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polynomials with multiple zeros. Therefore .farr.polyaomials with 
multiple zeros, the order in which the methods are recommended is as 
-follows. 


1. G.C.D. with Newton. 


2 . G.C.D. with Muller . . 

3. Repeated G.C.D, with Newton. 

4. Repeated G.C.D. with Muller. 

5. Muller. 

6 . Newton . 



NEKTONS METHOD TO FIND ZEROS OF POLYNOMIALS 
POLYNOMIAL NUMBER T OF DEGREE 15 


THE COEFFICIENTS OF PlX) ARE 

PI 11 *■ 0.3DOODOOOODOOOOOOD 
PI 21 * — 0.1790000 OOODOOOODD 
P( 31 * 0.2 01 00000 00000300 D 
PI 4) « 0.17450000000000000 
PI SI « — 0 .75942000000 OOOOOD 
PI 01 * 0.8274360000000000D 
PI T 1 * 0 . 1329084 OOODOOOODD 
PI 81 = — D .5611 8600000 OOOOOD 
PI 91 - 0.7229756 DOOQOOOOOD 
PI101 * -0.22769920000000000 
Pill) * — 0. 1291 972000000000 D 
PI 121 *■ 0. 5902 600000COOOO 10 
PI 131 ~ -0.69663360000000010 
P( 19 1 ® 0.19679560000000000 
PI 151 * -0. 1077120000000000D 
Pllbl ■> 0.3 95 60 000000 000 ODD 


01 9 0.00000000000000000 00 I 

02 ♦ -O.OOOOOOOOOOOOOOOOD 00 1 

02 ♦ -0.65760000000000010 02 1 

03 ♦ 0. 26936 BOO 000000000 03 1 

03 * 0.31 1 8 OB 00000 000000 03 I 

03 * -0.30690900000000000 09 1 
09 * 0. 97 1D624000000000D 09 I 

09 + -0.16795760DODOOOOOQ 09 I 
D9 * — 0* I 5982 68000000000 D 09 I 
09 ♦ . 0.3096 32 OOOOOOOOOOD 09 I 

09 ♦ — 0.909 72 80 0000000 OOD 09 I 
09 ♦ D. 12 639 88 DOOOOOOOOD 09 I 
09 ♦ 0 . 12 3 69 BOO 00000 OOOD 09 I 

09 ♦ 0.22 72000 OOOD OOOOOD 02 I 

03 9 -D.S475B90000000000D 03 1 
02 * 0. 1267200000000000D 03 I 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 


MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR CONVERGENCE. 0.1PD-09 
TEST FOR MULTIPLICITIES. 0. 10D-01 
RADIUS TO START SEARCH. 0. ODD 00 
RADIUS TO END SEARCH. D.OOD DO 


BEFORE THE ATTEMPT TO IMPROVE ACCURACY, THE 2 EROS OF PIXI ARE 


ROOTS OF PIXI 


MULTIPLICITIES 


INITIAL APPROXIMATION 


ROOT! 11 
ROOT! 21 
ROOT I 31 
ROOT I 9} 
ROOT I 51 
ROOT! 6) 
ROOT I 7 1 
RODTI 81 
RODTI 9} 
RODTI 10 1 
ROOT 1 1 1 1 
ROOT 112 1 
R0DTU31 
RODTI 141 
RODTI 15) 


0.3000 DOOOOOOOOD OOD 00 
0.20000000000000000 00 
-O.2OOO0OO0 00000 OOOD 00 
0. 2485026I09655B03D-17 
■ 0.10000000000000000 01 
•O.IPOOOOOOOOOOOOOOO 01 
-0.3 10o91 87592 60349 D- 15 
■ 0.20000000000000000 01 
0 . 1 COOOODOOCDOO 0 16 D 01 
0 .2 ODOOOOOOOD 000 90 D 01 
0.19999999999999000 01 
0.3000000000000001D 01 
0.3999999999999998D 01 
0.99999999999996060 00 
•0.33333333333333340 01 


+ 0. 1609 3581 151 6653 1 D- 16 1 

♦ — 0 . 20 00 000 000 0000 OOD 00 I 

♦ 0. 2000000000 0 OOOOOD DO ! 

♦ 0 . 1 COOOOOODOOOO 0000 01 I 
+ —0.532 1 9 537064 59946 D— 16 I 
•»• -0.99999999999999900 00 I 

♦ -0.99999999999999940 00 I 

♦ -0.30Q000DD000OD000D 01 L 

♦ — 0. 1009769996352 1000- 12 1 

+ -0.1000000000000032D 01 1 
+ 0.1305 50 70472 22 202 D- 12 J 

♦ -0.14175491574492190-13 1 

♦ C.4000000000000D03D 01 1 

♦ 0 . 1 000 000000000005 D 01 I 

♦ —0. 1 050 371 7077 08594D-15 1 


1 0.48296291 156562 79D 00 ♦ 0-12940952S4438187D 00 I 

1 0.70710675530463460 00 ♦ 0.70710680706845950 00 I 

1 0 . 388 228479 2 6 54056 D 00 4 0.1448888 76 31171930 01 I 

l -0.51763825519667240 00 ♦ 0.19318516063687550 01 I 

1 -0.17677671970807010 01 ♦ 0.17677667588520150 01 I 

1 -0.2897777583074 99 00 01 ♦ 0.7764567463987070D 00 I 

1 -0.33607402483312290 01 ♦ -0.9058671940BI6I60D 00 I 

1 -0.28284266071078960 01 *■ -0. 28284276423B439O0 01 I 

1 -0.11646B4B01399899D 01 ♦ -0.43466664590733680 01 I 

1 0.12940963450986450 01 ♦ -0.4 B296 288 3 1453027D 01 I 

1 0.30890882929795090 01 ♦ -0.38890863000722580 01 1 

1 0. 579 555 539351 23 03 D 01 ♦ -0.15529126442689740 01 1 

1 0. 627B5173577341250 01 ♦ ' 0. 168232570B24 77S2D 01 I 

1 SOLVED BT DIRECT METHOD 

1 SOLVED BY DIRECT METHOD 


Exhibit 6.1, 



AETIR 7 Kt ATTEMPT TO IMPROVE ACCURACY, THE ZEROS OR PIX1 ARE 


ROOTS 3E Pill 


MULTIPLICITIES 


initial approximation 


ROOT t II 
ROOT I 21 
RDDT ( 31 
ROOT I 51 
ROOT I 51 

ROOT { 6) 
ROOT l T 1 
ROOK B> 
ROOT I 91 
ROOT MCI 
ROOT U II 
ROOT U 2 I 
ROOT 1131 
RODTl 1*1 
ROOT 1151 


0. 3000000000000 0 DOD OD ♦ 
0.20000000000000000 00 ♦ 
-0*2 00000 OCOOOOODDDQ OD ♦ 
-0.11260530537627530-17 ♦ 
-O.IOOOOOOOOOOOOOOOD 01 ♦ 
-O.IOOQOOOOOOOD3DOOO 31 » 
0-61318693)93791500-16 ♦ 
- 0. 20000000000000000 01 * 
O.IOOODOOOOOOODOOOO 31 • 
0*200000 00 OOOOOOOID Ok * 
0*2 0DODOOOGO03 30 030 31 ♦ 
0. 2<9M9<9<J99999999TD 01 ♦ 
O.IOOOOOOOOOOOOOOOD 01 * 
0*9999 9999 9999 9 9950 00 * 
“0* 333333333333 33350 01 ♦ 


0*332 895353770591 3D- 16 I 
-0.20000000000000000 00 I 
0.20000000000000000 00 1 
0.100000000000000 CD 01 1 
-0. 1882576030550T96D-I6 I 
-O.IOOOOOOOOOOOOOOOD Ok 1 
-O. lOOOOOOOOODDDOOOD 01 I 
-0.30000000000000000 01 l 
0.728776 55 808950650-16 1 
-0.99999999999999900 00 I 
-O,39b0D3962OBll35TD-15 l 
0. 28986896305 3765 80- 15 I 
0.50000000000000010 01 t 
O.IOOCOOOOODDDDOOOD 01 I 
-0. 8990Ob3b7O51 76380-lb I 


0.58296291156562790 00 ♦ 
0. 707 106 75 5 3 056 3560 00 ♦ 
0.38822857926550560 00 ♦ 
-0.S176382551966T260 00 ♦ 
-0.I767767I57C807CIO 01 ♦ 
-0.28977775830759900 01 ♦ 
-0.33B075O256331229O 01 * 
-0.28285266071078960 01 ♦ 
-0.11b56B5B0l399899D 01 * 
0.12950963550986550 01 ♦ 
0.38690862929795090 01 ♦ 
0.5795555393512303D 01 ♦ 
0.62785173577351250 01 * 

SOLVED by direct method 
SOLVED ev DIRECT METHOD 


0.12950952855381870 00 1 
0.70710680706855950 00 I 
D. 155 88867631 17 1930 01 I 
0.19318516083687550 01 1 
0. 1 76776675885201 50 01 1 
0.77655675639B7070D 00 I 
-0.90586719508161600 00 I 
-0.282652 76523853900 01 I 
-0.53566665598733680 01 1 
-0.58296288315530270 01 I 
-0.38690863000722580 01 1 
— 0 . 15529 1265526 B975D 01 1 
0.16823257082577520 01 1 


Exhibit 6„l t Roots Are: -1 

-10/3, .3, -1, 


- i, 1 + i, -2 - 
1, 4 4- 41, -.2 + 


3i, 2 - i, 3, 2, i, -i, 
,2i, .2 - .2i. 


4>- 

U3 



MULLERS METHOD FOR FINDING THE ZEROS OF A POLYNOMIAL 
POLYNOMIAL NUMBER 7 OF DEGP.ee 15 

THE COEFFICIENTS OF PIXI ARE 


PC II 
PI 21 
PI 31 
PI 4) 
PC 51 
P( 61 
PI 71 
PI 8) 
PI 91 
PI 10 1 
PI 111 
PI 121 
PI 13) 

P(14l 

PI 15) 
P I 1 6 ) 


0.30000000000000000 01 ♦ 
-0.1 T90000000000000D 02 + 
0 . 201 00000 OOOOOQOOD 02 ♦ 
0.1 745000000000000D 03 ♦ 
-O.75942ODOOD0CJOOOOD 03 ♦ 
0.82 7436 OOOOOOOOOOD 03 * 
0.132 90 B4 0000000000 04 ♦ 
-0.5611860000000000D 04 ♦ 
0. T22 4 7560 000 00000 D 04 ♦ 
-0.2276992000000000D 04 ♦ 
— 0 * 1241 472 00 OC 00000 D 04 •» 
0.5402 800000000001 D 04 ♦ 
-0.646 B3 36 OOOOCOOOl 0 04 ♦ 
0.1467456 OOOODOOODD 04 ♦ 
-0.10771200000000000 03 ♦ 
0 .34560000000000000 02 ♦ 


0 . 000 DDOOOOOOOOOOOD 00 I 
-O.OOOOOOOOOOOOCOOOD 00 I 
-0.65760000000000010 02 I 
0.28436800000000000 03 I 
0.31 1 8080000000000D 03 I 
— 0. 306904 0000000 OOOD 04 I 
0.47106240000000000 04 I 
-0.16745760000000000 04 1 
— 0. 1 5482 BBOODOOOOOOO 04 I 
0. 30 4632 OOC 000 0000 D 04 1 
—0. 40972 BOOOOOOOOOOD 04 I 
0.12 634 B8000000000D 04 1 
0. 12 364 BOOOOOOOOOOD 04 I 
0.22 720 00 0000 00 OOOD 02 I 
— 0 . 54 75 64 OfJOOOOOOOOD 03 ! 
0.12672000000000000 03 I 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 


MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR CONVERGENCE. 0.100-09 
TEST FOR MULTIPLICITIES. 0.100-01 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. O.OOD OO 


BEFORE ATTEMPT TO IMPROVE ACCURACY 


ROOTS OF PIXI 


MULTIPLICITIES 


INITIAL APPROXIMATION 


ROOT I 1) 
ROUT I 2 I 
ROOT l 3 > 
RODTI 4) 
ROOT! 5) 
ROOT ( 6 1 
P C1HT I T) 
ROOT I a> 
ROOT! 9) 
ROOT 110) 
ROOT 1 11 1 
RODTI 12 I 
ROOT 1 131 

RODTI 141 

Roorci5i 


D.300000000000000DD 03 * 
0.20000000000000000 00 ♦ 
0.99999999999999950 00 + 
-0. 23890824083133820- 16 ♦ 
-o. tooooooocononnooo 01 + 
-O.33333333333333340 01 ♦ 

-o. tcooooooocoooooeo 01 + 

-0.20 OOOCODCOOOOOOID 01 ♦ 
-0.113 BB1 673093 665 OD- 12 ♦ 
0.19999999999998790 01 ♦ 
0.29999999999999460 01 ♦ 
0.20000000000CDI 22D 01 ♦ 
0-3999999999999999D 01 ♦ 
0. 10000000000002080 01 ♦ 
-0.20000000000003660 OP * 


0. 33 B 399 6751 7518660-16 1 
-0.200DOOOOOOCOOOOOO 00 I 
0. 9999999999 99 9 997D 00 1 
D. ] 0000 000 00000 000 D 01 I 
0.25316292776176400-15 I 
— 0. 21 447226690 B77 370- 1 5 T 
-0.99999999999996610 00 I 
-0.30000000000000000 Ol I 
-0. 1000C00000000109D 01 I 
-0.9999999999999954D 00 I 
0.19213912044391240-14 I 
-0.22541 54S79580170D-12 ! 
0.4000000C00000005D 01 I 
0. 22974446419373370-12 I 
0.20000DCO0DD0D595D 00 I 


1 

1 

1 

1 

1 

1 

1 

1 

l 

1 

I 

l 

1 

1 

1 


D. 48296291156562790 00 * 
0.70710675530463460 00 ♦ 
0.3B822B*792654056D CO ♦ 
-0« 5 176 362 55 1966724D 00 ♦ 
-0.17677671470807010 01 4 
-0.28977775830749900 01 * 
•0. 33807 402 483 3 12 29D 01 ♦ 
-0.28284266071078960 01 ♦ 
-0.11646 84 B01 3998990 01 * 
0.12940963450966450 01 * 
0.38890882929795090 01 ♦ 
0.57955553935123030 01 ♦ 
0.62785173ST734125O 01 ♦ 
SOLVED BY OIRECT METHOD 
SOLVED BY DIRECT METHOD 


0.12 94 09 5 ? 844 3 B1 STD 00 1 
0.7071 0680T 06845 95D 00 1 
0.14460887631171930 01 I 
0. 193 1 651 60B368755D 01 1 
0. 176776 675 B8520 1 50 01 1 
0.77645674639870700 00 I 
-0. 905 66719408 1 6 160D 00 I 
— 0 .2 B28 42 764 23B43900 01 1 
-0.43466664598733680 01 1 
— 0.4 82 9 62 88 3 145 302 7D 01 I 
-0.3BB908630007225BD 01 I 
-0.15529126442669740 01 1 
0.16 82 32 5 708 2477 52 D 01 I 


Exhibit 6 = 2, 



'APTER THE ATTEMPT TD IMPROVE ACCURACY 


ROOTS Of »!I 


ROOT | U 
ROOT 1 2) 
ROOK SI 
ROOT < *1 
RUDT1 5) 
ROOM *1 
®0?T ( T) 
POO T 1 81 
ROOT -( 9) 
ROOT (101 
ROOT f 11 1 
ROOT (12 1 
P.03TU31 
ROOT 11 A 1 
ROOT 1151 


Exhibit 6 




multiplicities 


initial approximation 


0* SO OOOOCOOO 006000 D CO ♦ 
0.20000000000030000 DO * 

0.99999999999999950 00 ♦ 
0.11537757751536680-16 ♦ 
'0. ICOOOOOOOOOOOOOOO 01 ♦ 
-0 • 333 13 3333 S3 3 3 3 3RD 01 * 
-O.IPOOOOOOPOOOOOOOO 01 * 
-0.70000000000000000 Ot * 
0.55711 3573382772*0- 1 A * 
0.70000000000030020 01 ♦ 
0.29999999999999960 01 ♦ 
0.70000000000000020 01 ♦ 
0. *0000000000000000 OJ * 
d.lOOOOOOOOOOOOOOOD 01 ♦ 
- 0.20000000000000000 00 * 


0. 33T6739*620B32**D-16 I 
-0.20000000000000000 00 1 
O.IOOOOOCOPOOOOOOOO 01 I 
0.10000000000000000 01 1 
-0.99356250300168*00-17 I 
*0.191912538715366*0-15 I 
-0.99999999999999980 DO I 
-0.30OD0DOPOO0DD0D00 01 I 
- 0.10000000000000000 01 I 
-0.99999999999999660 00 1 
0.2*39*773729111**0-15 I 
- 0**102050*900166570-1* 1 
0. *0000000000003010 01 I 
0.7662*382838570700-16 1 
0.20000000000000000 00 1 


t 

I 

1 

1 

I 

1 

l 

1 

1 

1 

1 

1 

1 

1 

l 


0.* 6296791 156562790 00 
0.707106 75530*63*61) 00 
0. 388228*79265*0560 00 
—0.51 76387551 96 672* D 00 
-0.17677671*708070)0 01 
-0.289777758307*9900 01 
— 0. 33837*07*833 ) 279D 01 
-0.2878*266071078960 01 
-0.116*68*8013990990 01 
0.129*0963*50986*50 01 
0.38890862 979795090 01 
0.57955553935123030 01 
0.627851735773*1250 01 
SOLVED BY DJ8ECI METHOD 
SOLVED BY OIRECT METHOD 


♦ 0.129*095? 8* *3818 TT> 00 l 

♦ 0.707106807068*5950 00 1 

♦ 0.1**8888763)17)930 01 I 

♦ 0.1931851600366755001 I 

♦ 0.17677667588570150 01 t 

♦ 0.776*567*639870700 OC I 

♦ -0.90506719*0016)600 CO t 

♦ -0.7878*776*238*3900 01 l 

♦ -0. *3*6666*598733680 01 I 

♦ -0. *829678831*530770, 01 1 

♦ -0.38090663000722500 0| I 

♦ -0 .1552 9 1 76* *2689 7*0 01 I 

♦ 0.16823257082*77520 01 I 


2* Roots Are: -1 - i, 1 + i, -2 - 3i, 2 - i, 3, 2, i, -i, -10/3, .3> -1, 
1, 4 + 4i, -.2 +.2i, .2 - .21. ' > 



..NEKTONS -METHOD TO -^ ^OLYNOMlAlS 

•POLYNOMIAl NUMBER 1 OF DEGREE 6 ■ . 


THE COEFFICIENTS OF POO ARE 

PI lie G. 1QQO 000 0000 OOPOOD 01 F 
Pt 21 = —0 .700000000000000 1 D 01 ♦ 
Pt 3) = -C.2800000000000000D 02 * 
P( 41 * 0.17100000000000000 03 F 
PI 51 » -0. 73 00 00 000 0000 0000 02 f 
PI 6l * -0.2Z80000000000DOOD 03 ♦ 
PI 71 a 0. 7200 000 ODOOOODO ID 02 ♦ 


0.00000000000000000 00 I 
-0.10500000000000000 02 I 
0.580000000D000001D 02 I 
0. 1500000000000000D 01 I 
-0.2510000000000000D 03 I 
0.10400000000000000 03 l: 
0. .10400000000000000 03 I 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 
MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR CONVERGENCE. 0. 100-09 
TEST FOR MULTIPLICITIES. 0.100-01 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. 0. OOD 00 


BEFORE THE ATTEMPT TO IMPROVE ACCUR ACT, . THE ZEROS OF PIXI ARE 


ROOTS OF PIXI 


MULTIPLICITIES 


INITIAL .APPROXIMATION 


ROOT! IT • 0.99999980361250190 00 * 0. 20000000521302*40 01 1 
ROOT! 2) « 0.19967378102574060 01 ♦ 0.19952530211436040 01 I 
ROOT! 31 - -0.99021319799746240 00 ♦ O.S142304322923812O 00 1 


0.4B2962911 56562790 00 ♦ 0. 12940952B44381B70 00 I 
0.707I067553046346D 00 * 0.T071068070664595D 00 I 
SOLVED BY DIRECT METHOD 


IN THE ATTEMPT TO IMPROVE ACCURACY, ROOT! 21 « 0.1 99673T01O25740 60 01 «• 0.19952538211436040 01 I DID NUT CONVERGE. 

THE PRESENT APPROXIMATION AFTER 200 ITERAT IONS IS PRINTED 0ELQH. 

AFTER THE ATTEMPT TO IMPROVE ACCURACY, THE ZEROS OF PIXI ARE 


ROOTS OF PIXI 


MULTIPLICITIES 


INITIAL APPROXIMATION 


ROOT! U- 0.99999986361250190 00 O.2OOOOOOO5213B204D 01 l 

ROOT! 21 » 0.19999929075033090 01 ♦ 0. 19999594740016890 01 I‘ 

ROOT! 3 ) * -0.99999999999999980:00 f". O.5OOOOOOOOOOOOO0OD 00 I - 


0.48296291156562790 00 ♦ 0.12940952844381870 00 t 
0.70710675530463460 00 * 0.70710680706645950 00 f 
SOLVEO 0Y,OIRECT ^METHOD 


Exhibit 6»3o Roots Are: 2+2i (3), l+2i (2), -l+.5i 


04 



NEWTONS METHOD TO FIND ZEROS OF POLYNOMIALS 
- POLYNOMIAL NUMBER 2 OF DEGREE 15 


THE COEFFICIENTS OF PIX) ARE 

PI n = 0. *8000000000000000 02 + 6.00000000000000000 00 I 
P[ 2J I 0 .2 557 12 00 00000 000 D 03 * -0.3 8400000000000000 03 I 
PI 3) » -0.73535568000000000 02 ♦ -O.Zl B9696000000000D 04 I 
PI *) = -0.3855565696000000D 04 + -0.69468514560000010 04 I 
PI 5 ) - — 0 . 1 733 386464 600000 D 05 ♦ -0.14206259728000000 05 1 
PI 6 ) = -0.49679892704000010 05 ♦ -0. 1765857464000000D 05 I 
PI 71 - -0.10223945221300000 06 ♦ - 0 . 603066423200000 10 04 I 
P{ 8 ) » -0. 16427422005600000 06 + 0.4137366230400000D 05 1 
PI 91 * -0.2036625BBB420000D 06 -+ 0.10 938992276700000 06 I 
PI10J — 0 . 1BT1255 T800 1000CD 06 ♦ 0.19 298654403300000 06 l 
PUD - -0.12749972985900000 06 ♦ 0.21713412274200000 06 I 
PI12I * -0.28146927166000000 05 0.19284697279600000 06 l 
PI 13) = 0.13294344348000000 05 •+ 0. 1038130226S50000D 06 I 
PI 14) B 0. 30539007747000000 05 + 0.299898 91413000000 05 I 
PI 15) = —0.1 635B99020000000D 03 + -0.18276321600000000 03 I 
PI 16) - 0,2 7556200000000000 00 + 0.27556200000000000 00 I 


NUH8ER OF INITIAL APPROXIMATIONS GIVEN. 0 


MAXIMUM NUMBER OF ITERATIONS. ' 200 
TEST FOR CONVERGENCE. 0. 10D-05 
TEST FOR MULTIPLfCl TIES. 0.100-01 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. O.OOD 00 


BEFORE THE ATTEMPT TO IMPROVE ACCURACY, THE ZEROS OF P(X! ARE 
ROOTS OF PI XI MULTIPLICITIES INITIAL APPROXIMATION 


ROOT I 1 ) 
ROOT I 21 
ROOT I 3) 
ROOT! 4) 
ROOT I 5) 
ROOT! 6 ) 
ROOT! 7) 
RODTI 6 ) 
ROOT! 9) 
ROOT (10) 
ROOT 111) 
ROOT l 12) 


0.3000000 7363981840-02 
0.86266231240991390-04 
0.57683424649275690-02 
-0. 5926634471 0587620-52 
-0. I014904754401601D 01 
-0.23333336178348630 01 
-C. 101 85 0843 5678558 D 01 
-0.96654419892628350 00 
-0.24B1 4837 09937032 0-02 
0. J560S14417537318D 00 
0,33256756537607100 00 
-0.48371260812910090 00 


♦ 0.26093949065529810-08 1 

♦ 0.10000801737229880 01 I 

♦ 0. I 50 81 45 1743 165 700 01 I 

♦ 0.14917229999229610 Ol ( 

+ - 0.10284209313843700 01 1 

0.2 16 8624494 945 2 OOD- 05 I 
+ -0.97285956027561890 00 I 

♦ -0.99877747895279140 00 1 

♦ — 0. 14978 TV 862 7 10 7940 01 1 

«- 0;2495 207 68 52 120910 01 I 

4 0.33659936274026380 01 I 

♦ 0. 3 13 45B 5687 0908420 01 I 


2 0.40296291156562790 00 ♦ 0. 1294095 2 84430 18TD 001 
2 0.70710675530463460 00 ♦ 0.707X0600706845950 00 1 
t 0.38922647926540560 00 * 0.1448869743X17X930 Oil 
1 -0.51763025519667240 00 * 0.1931 0516003607550 01 1 
1 -0.17677671470807010 01 4 0.17677667388520150 01 1 
l -0.28977775830749900 01 4 0.77645674639070700 00 I 
1 -0.33007402483312290 01 ♦ -0.9058671 9408161600 00 I 

1 -0.28284266071078960 01 * -0.28204276623843900 01 1 

2 -0.11646840013998990 01 * -0 .43466664598713680 01 I 
1 0.12940963430986430 01 * -0.48296298314530270 01 I 
1 SOLVED BY DIRECT METHOD 

.1 SOLVED 0Y OIPECT METHOD 


AFTER THE ATTEMPT TO IMPROVE ACCURACY, 


THE ZEROS OF PIX1 ARE 


Exhibit 6 . 4 . 



ROOTS "OF PtX> 


ROOT ( II = 0, 

ftaorr 2 ) =■ o. 

ROOT [ 3) - 0. 

R 00T ( 4) = -0, 

ROOT ( 51 * -0. 
ROOT i bi - -0. 
ROOTt 7) = -0. 
ROOT t 8) = -0. 
ROOT i 9» » -0. 
RODT 1101 = -0. 
ROOT ( 11) a 0. 
ROOT 1121 * -0. 


■ROL'T I RtTCTT T5S 1NITI AL ARPAQX THAT ION 


30000003683722 620-02 ♦ 0 . 130406761639 B 6 S 1 D-OB I Z 
6 742 03 5082 463 4 OSD* 06 ♦ 0 . 1000000 627692 T 75 D 01 1 2 
7624724932810605 0—06 ♦ 0 . 1500 DO 1030008 B 33 D 01 [ 1 
66718756627305410-06 «• 0 . 14999990 1 116 509 3 D 0 1 1 l 
999996011101 802 7 D 00 ♦ - 0 . 100000749384364 ID 01 1 1 
23333333333 1 1710 D 01 ♦ 0 . 64990590582774950-11 II 
10000076929704720 01 ♦ - 0 . 999998 369861 9370 D 00 1 1 
99999517401584100 00 ♦ - 0.99999502636776190 00 I 1 
5924 87 85 305 784 77 D - 06 «- - 0 . 1 499999487 1 8773 BD 01 I 2 
. 6093 654451 589 19 3 D — 06 0.15000010898249810 01 I l 
26195991 030834680—04 ♦ 0 . 3000007638*717650 01 t 1 
98 192911 809282650 — 05 . ♦ 0 . 2999974121 5895750 01 I 1 

■ Exhibit 6 0 4» Roots Are: -2„33, 
l*5i (2), ~lo5i (2) 


0.4829629U 56562790 00 4 0.129409520443 61870 00 I 

0.707 1067553046 346D 00 * 0.70710600706645950 00 1 

0.38822847926540560 00 ♦ 0.14468887631171930 01 1 

-0.517638255196672*0 09 ♦ 0.1931851406368755D 01 1 

-0. 176776 71470607010 01 * 0.17677667588520150 01 I 

-0 .26977775630749900 01 * 0.7 76456746 398 70700 00 I 

-0.3380740248331229D 01 ♦ -0.9058671940616160D 00 I 
-0.28264266071076960 01 •* -0.28284276423 84390 0 01 I 
-0.11646648013998990 01 * -0.43466664598733600 01 1 
0.12940963450986450 01 * -0 .482 9628831 45302 TD 01 I 
SOLVEO BY DIRECT METHOD 
SOLVED Or DIRECT METHOD 


003 (2), 1 (2), 
31 (3), -1-1 (3) 


•TS 



NEWTONS METHOD TO f 1 NO ZEROS 'Of POLYNOMIALS 
POUT NON] fit. number 3 OF DEGREE a 


THE COEFFICIENTS OF PIXI ARE 


PI 

1 ) 

r 

o.ioooooooooooooooo 

01 

+ 

0. OOPGOOOOOOOOQ0OOD 

00 

1 

PI 

21 

- 

-0.500000000 OOOOOD1D 

01 

+ 

-0. 11500000000000000 

02 

1 

PI 

31 

* 

-0.5175000000C00001D 

02 


0 ■ 43 OOOOOOODOOOOO ID 

02 

I 

PI 

41 

= 

0. 15725000000000000 

03 

+ 

0. 1446250000000000D 

03 

1 

PI 

51 

* 

<3.30 750000000000 OOD 

03 

+ 

-0.34750000000000000 

03 

I 

PI 

6) 

- 

-C.4952500000000000D 

03 

♦ 

-0.49487500000000000 

03 

I 

PI 

71 

= 

-0.58575000000000010 

03 

♦ 

0.42 4 750000000000 ID 

03 

I 

PI 

61 

■X 

0.18100000000000000 

03 

+ 

0.44200000000000010 

03 

I 

Pf 

91 

* 

0.15BO000O00000000D 

03 

+ . 

0.60000000000000010 

01 

I 


NUMBER OF INITIAL A PPROX1M AT l OMS GIVEN. 0 
MAXIMUM NUMBER Of ITERATIONS. 200 
TEST FOR CONVERGENCE. 0. 100-05 
TEST FOR MULTIPLICITIES. 0.10D-D1 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. 0. OOD 00 


BEFORE THE ATTEMPT TO IMPROVE ACCURACY, THE ZEROS OF PIXI ARE 
ROOTS OF PIXI MULTIPLICITIES INITIAL APPROXIMATION 


ROOT! 

ii 


0. 9999992498044T42D 

00 

+ 

0.19999934679040900 

01 

I 

2 

0.48296291156562790 

00 ♦ 

0. 129409 52 8443 B187D 

00 

I 

ROOT ( 

21 

- 

-C. 99216370 I 677632BD 

00 

♦ 

0.50273964052275640 

00 

I 

2 

0.70710675530463460 

00 ♦ 

0.707 1068070684595D 

00 

1 

ROOT 1 

31 

- 

0.19166896842724220 

01 

+ 

0,19669597870445160 

01 

I 

l 

. 0.3B82284792654056D 

00 ♦ 

0.14488887631171930 

01 

I 

ROOT l 

41 


0.20137266061676120 

01 

♦ 

0. 2086055012 105922D 

01 

I 

1 

-0.51763825519667240 

00 ♦ 

0.19318516083687550 

01 

I 

ROOT 1 

51 

c 

0*20694066410038210 

01 

+• 

0.19469500958857110 

01 

I 

1 

SOLVED BY DIRECT METHOD 




ROOT I 

61 

- 

-0, 10154842276975370 

01 

+ 

0.49455888011015920 

00 

I 

I 

SOLVED BY DIRECT METHOD 





AFTER THE ATTEMPT TO IMPROVE ACCURACY, THE ZEROS OF P|X> ARE 


ROOTS OF PIX) 


MULTIPLICITIES initial approximation 


ROOT I 1) 
ROOT! 21 
ROOT! 3> 
ROOT ( 41 
ROOT t 5 > 
ROOT! 6) 


O.999999623939T9U0 00 + 
■0 . 999992653 91 A B 32 7D 00 ♦ 
0. 19999562215780010 01 ♦ 
0. 2000005 B2932 2 7980 01 ♦ 
0. 200000873-95097060 01 ♦ 
-0.10000053739815870 01 ♦ 


0.19999992333489690 01 I 
D . 4999 9755579552720 00 I 
0.20000206360361000 01 I 
0. 19999524995012820 01 I 
0. 19999500538TT640D 01 I 
0.499 9950920 1 2 166 70 DO t 


2 0.482962911 565 62T9D 00 ♦ 0.12940952844381870 00 I 

2 0.707 106 755 3046 346 D 00 ♦ 0.7071 068070684595 D 00 I 

1 0.38822847926540560 00 ♦ 0. 1448688763 l 17193D 01 I 

k -0.51763625519667240 00 ♦ 0.19318516083687550 01 I 

1 SOLVED BY OIRECT ME7H00 

I SOLVED BY DIRECT METHOD 


Exhibit 6*5 


Roots ,Are : 


2+2 i (3), 1+21 (2), -l+.5i (3) 



j NEWTONS METHOD TO FIND ZEROS Of POLYNOMIALS-' 
POLYNOMIAL NUMBER 4 OF DEGREE 12 • ' . 


THE COEFFICIENTS OF PCX! ARE 

PC 1) » O.IOOOOOOODOOOODOOD 01 ♦ 0. ODOOOOOOOOODOOODD 00 I 

PC 21 * -0.12000000000000000 02 * -0. OOOOOOOOOOOOOOOOD 00 I 

PI 31 * 5. 7200000000PDD00.1D 02 * 0 . OOOOOOOOOOOOOOOOD 00 ! 

PC 41 = -0.2BOOOOOOOOCOODOOD 03 ♦ -0 . OOOOOOOOOOOOOOOOD 00 l 

PC 51 * 0,78000000000000000 03 ♦. O. OOOOOOOOQOOODOODO 00 1 

PC 6) * — 0 * 1632 00 00 000 0000 00 04 ♦ - 0. OOOOOOOOOOOOOOOOD 00 I 

PC 71 = 0 *262 40 00000000000 0 04 ♦ 0. OOOOOOOOOOOOOOOOD DO 1 

PI 8) * -0. 326400000 00 00000 D 04 ♦ -0. OOOOOOOOOOOOOOOOD 00 I 

PC 91 - 0.3120000000000000D 04 ♦ 0.00000000000000000 OO I 

. PII01 = -C.224O00O0C0000D0OD 04 ♦ -0. OOOOOOOOOOOOOOOOD 00 1 

PC111 = 0.11520000000000000 04 ♦ 0. OOOOOOOOOOOOOOOOD 00 I 

PC 12 ) = -0.3640000000000000D 03 ♦ -0. OOOOOOOOOOOOOOOOD 00 I 

PC 131 = 0 . 640000000000000 1 D 02 ♦ 0. OOOOOOOOOOOOOOOOD 00 I 


NUMBER OF INC T 1 At APPROXIMATIONS GIVEN. 0 
MAXIMUM NUMBER Of ITERATIONS. 200 
TEST POP CONVERGENCE. 0.100-03 
TEST FOR MULTIPLICITIES. O.IOD-Ol 
RADIUS TO START SEARCH. 0.000 OO 
RADIUS TO END SEARCH. O.OOD 00 


BEFORE THE ATTEMPT TO IMPROVE ACCURACY, THE ZEROS OE PCX! ARE 


ROOTS Of PCX) ' MULTIPLICITIES INITIAL APPROXIMATION 


ROOT C 11 ■= 0.99940796033691520 00 ♦ 0. 9951 391 489643941D 00 I 5 0.48 29629X15651,2790 00 ♦ 0.1294095284438 187D 00 I 

ROOT I 21 - 0. 1020096B856097200 01 - 0. 54206461303 B78B 90 00 I 1 0 . 707 lGbT553O463460 00 ♦ 0.70 7106 60706845950 00 I 

ROOT C 31 - 0.1002721 106681 6580 01 + 0.10233106615266340 01 1 1 0. 38B22 B479265405&0 00 * 0.144868876 31171930 01 I 

ROOT C 4) = 0.61 89968959361 400D 00 ♦ -0.79497020137361440 00 I 1 -0, 5176382 55 1966724D 00 ♦ 0. 193 IB 51 *0 8368 T55D 01 I 

ROOT C 51 = 0.98 5142204 74234 14D 00 * -0.13956979961330380 01 I 1 -0.176776 71470807010 01 ♦ 0. 1 T6776675B8S2015D 01 I 

ROOT I 61 = 0.6515828215 1654210 00 ♦ -0.12069876864549360 01 l l -0.2 897777563 0749905 01 ♦ 0.77645674639870700 00 I 

ROOT C 7) » 0. 139379998440050BQ 01 * -0.82719243111768510 00 I 1 SOLVEO BY DIRECT M ETHQO 

ROOT { 81 * 0.1330 6201 9942 B5 14D 01 ♦ -0.12 320934962 305410 01 I 1 SOLVED BY DIRECT METHOD 

IN THE ATTEMPT TO IMPROVE ACCURACY, ROOT ( 21 « 0. 10Z0096 8656 0972OD 01 «- -0.54206461303878890 00 I DID NOT CONVERGE. 

THE PRESENT APPROX THAT ION AFTER 200 ITERATIONS IS PRINTED BELOW. 

IN THE ATTEMPT TO IMPROVE ACCURACY, ROOT C 5) = 0.98514220474234140 00 ♦ -0. 13956979981 33038D 01 1 DID NOT CONVERGE. 

THE PRESENT APPROXIMATION AFTER 20D ITERATIONS IS PRINTED BELOW. 


AFTER THE ATTEMPT TO IMPROVE ACCURACY, THE ZEROS OF PCXI ARE 


Exhibit 6c 6 0 


CJT 

o 



ROOTS 'OF Pm 


ROOT I 

1 ) 

3 

0.99948113795146260 

00 

* 0.99560775860617460 

00 

1 

ROOT l 

2 > 

» 

C. 99592313317176770 

00 

♦ -D.1OO17819H7-6754680 

01 

I 

ROOT ( 

3) 

- 

C ■ 99 58 5 7 807 1 7B8434D 

00 

♦ 0.10031671344932110 

01 

I 

ROOT ( 

*1 


0.99991569963089460 

OD 

6 -0.99503023164852320 

00 

I 

ROOT l 

51 

- . 

0.99391042189066210 

00 

♦ -0.99411359917024930 

00 

1 

ROOT ( 

■61 

= 

0.99605385885658690 

00 

* —0.1 00275992 36b45720 

01 

I 

ROOT l 

71 

- 

0.10037198385540710 

01 

♦ -0.99684656745825120 

00 

I 

: R 0 0 T ( 

81 

= 

0. 10001 6 B22 56999940 

01 

♦ -0.99537592890632930 

OD 

I 


Exhibit 6»6o Roots Are: 


'MULTIPLICITIES INITIAL APPROXIMATION 


5 0.482962911 56562 790 OO + 0. 129409528443B 18TD 00 I 

l 0. 707106 7553C46346D 00 + 0.73710680706845950 00 I 

1 0.3882284792654056D 00 «■ 0. 14488 BBT631 1 71 93D 01 I 

1 -0.51763825519667240 00 ♦ 0. 1931851 608368755D 01 I 

1 — 0. 176776714 708070 ID 01 ♦ 0 .1 767766750852 0I5D 01 I 

1 -0-28977775830749900 01 ♦ 0.77645674639870700 00 I 

1 SOLVED 87 DIRECT METHOD 

1 SOLVED BY DIRECT METHOD 


1+i (6) , l-i(6) 



MULLERS METHOD FOR FINDING THE ZEROS OF A POLYNOMIAL 
POLYNOMIAL NUMBER I OF DEGREE 6 


THE COEFFICIENTS OF PIXI ARE 


PI II = 0. I OOOOOOOOOOOOOODD 01 ♦ 0.00 0000 0000000000 D 00 I 
PI 21 » -0.70000000000000010 01 ♦ -D. 1050000000000000D 02 I 
PI 31 = — 0 .2800000000000000 D 02 ♦ 0.58000000000000010 OZ I 
PI 41 - 0.1 71 OQOOOOOOOOOOQO 03 ♦ 0. 1 500000000000000D 01 I 
PI 51 = -0. 7300000000000000D 02 + -0. 2510000000000000D 03 1 
PI 6| = -0.22800000000000000 03 ♦ 0. 104000 OOOOOOOOOOD 03 I 
PI 71 * 0. 720000000000000ID 02 ♦ 0 . 1 04000 OOOOOOOOOOD 03 I 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 


MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR CONVERGENCE. 0.10D-09 
TEST FOR MULTIPLICITIES. 0. 100-01 
RADIUS TD START SEARCH. Q.OOD 00 
RADIUS TO END SEARCH. 0.000 00 


BEFORE ATTEMPT TO IMPROVE ACCURACY 


ROOTS OF PIXI 


R33TI 11 = 0.1 999954 868749B1 QD 01 + 0 . 200001 7T333639 120 01 l 

ROOT! 21 = 0.10135026276728690 01 ♦ 0. 19961 630831 608B20 01 1 

ROOT! 3 1 = 0.9866348 1 22 5078640 OO * 0. 200380688232552 10 Dl 1 

ROOT! 4| «= - 0. 10000 02 1061730 B4D 01 ♦ 0 . 499976 83442 1 8605 0 0 0 I 


AFTER THE ATTEMPT TO IMPROVE ACCURACY 


ROOTS DF PIXI 


ROOT! 1) * 0. 19999 5483541 97 B 70 01 * 0. 2000017627898503D 01 I 
ROOT! Zl * 0.10000001597792780 01 ♦ 0. 1999999979600045D 01 1 
ROOT C 3) = 0.99999983067112130 00 ♦ 0.20000000716850890 01 I 
ROOT 1 41 =• -0,09999999999999980 00 4 0. 5 OOOOOOOOOOOOOODD 00 I 


Exhibit 6 7„ Roots Are: 


multiplicities Initial approximation 


3 0.48296291 1 5656279D 00 4 0. 1 2 940952 8443 81 87D 00 1 

1 0.70710675530463460 00 ♦ 0.7071 068070684595D 00 I 

I SOLVED BY DIRECT METHOD 

1 SOLVED BY DIRECT METHOD 


MULT 1 PLI CIT I ES INITIAL APPROX INAT ION 


0.4B29629115656279D 00 ♦ 0.12940952844361870 00 I 

0.70710675530463460 00 ♦ 0.70710680706845950 00 I 

SOLVED BY OIRECT METHOO 
SOLVED BY DIRECT METHOD 


2+2i (3), l+2i (2), -l+.5i 



to 



MULLERS METHOD FOR FINDING THE ZEROS OF A POLYNOMIAL 
POLYNOMIAL NUMBER 2 OF DEGREE 15 


THE COEFFICIENTS OF PtXI ARE 


PI 1) = 0.4 8000000000000000 02 ♦ 0.00000000000000000 00 I 
P( 2) = 0.2 5571 200 00000 ODOD 03 4 -0.38400000000000000 03.1 
PI 3 I = — 0 . 73 53 5 58 8 000 00 GOOD 02 + -0.21896960000000000 04 I 
PI 4 ) * -0.3 6555 65696 GOOD ODD 04 + -0 .694685145600000 ID 04 I 
PI 5 1 » -0.17333064648000000 05 *■ -0. 1 42062 5972 800000D 05 I 
PI 6) = — 0. 49679B92 T0400001 D 05 4 - 0 . 176 5B5 7464000000D 05 I 
PI 7> = -0. 10223945221300000 06 ♦ -0.60306642320000010 04 1 
PI 8) - -0.16427422005600000 06 ♦ 0.41373662304000000 05 I 
PI 91 - — 0 . 203 6625 888420 0000 06 ♦ 0 . 1093 B99 2276700000 06 I 
PI10> = -0. 1871255780C10000D 06 4 0. 1 929B6 5440330 0000 06 I 
Pill) = -0.12749972985900000 06 * 0.21713412274200000 06 1 
PI1Z1 = —0.2 81 4692 71 6600000 D 05 ♦ 0.19284697279600000 06 I 
PI131 = 0.13294344348000000 05 ♦ 0.10381302265500000 06 1 
PIL4I * 0.30539007747000000 05 ♦ 0.29989891413000000 05 I 
PI 15) « -0. 1 835B99020000000D 03 4 -0. 1827632 1 60000000D 03 I 
P(16) * 0.2755620OOOOC0000D 00 ♦ 0 . 275 562 OOOOOOOOOOD 00 I 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 


MAXIMUM NUMBER Of ITERATIONS. 200 
TEST FOR CONVERGENCE. 0.100-09 
TEST FOR MULTIPLICITIES. 0.10D-01 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. O.OOD 00 


BEFORE ATTEMPT TO IMPROVE ACCURACY 


ROOTS OF P(X1 MULTIPLICITIES INITIAL APPROXIMATION 


ROOT! 1) - 0.30000000562593720-02 + 0. 827793 193211 9355D-12 I 2 0.48296291156562790 00 4 0.12940952844381870 00 I 

ROOT I 2) = 0. 16864729610578890-04 4 0.10000018357040090 01 I 1 0.7071067553 0463460 00 ♦ 0.70 710680706845950 00 I 

ROOT! 31 = 0.1280227161896996D-04 ♦ 0 . 1 49999B 7299639 19D 01 I 1 0.38022847926540560 00 * 0.14488867631171930 01 I C 

ROOT I 41 - 0.60196787821467610-04 4 0.2999 93 66616581900 01 I 1 -0.51763825519667240 00 * 0.19318 516083687550 01 I 

ROOT! 51 = -0 . 16 8648 5393 1 1 7943 D— 04 ♦ 0. 999998 1635776 16DD 00 I 1 -0.176 77671470807010 01 ♦ 0.17677667588520150 01 I 

ROOT! 6) - -0.23333333333336490 01 ♦ 0. 324940945 527 1494D- 1 2 I 1 -0 . 289777 75 B3074990D 01 4 0. 7764 56 T4639B7070D 00 I > 

ROOT I 7) s -0. 1000163769022359D 01 4 -0. 10001 7 37714 59914D 01 l 2 -0 . 33807 402483 31229D 01 4 -0.90586719408161600 00 I 

ROOT! 0) * — 0. 33349050 54 3 08 976 D-03 * -D . 1500 1333733984800 01 I l -0. 28 2 84266 07107 8 960 0 1 4 -0.2 82 842 7642384390 0 01 1 

ROOT I 91 * -0.99967247835329040 00 4 -0.9996 521399 3255630 00 I l ' -0.11646848013998990 01 4 -0.43466664598733680 01 I 

RODTUOI = 0 • 3334R 1 1 91400 8496D— 03 ♦ -0. 149966691 6Z436 16D 01 I I 0.12940963 4 509864 5 0 0 1 4 -0.482 9 62 8B3 1453027D 01 I 

ROOT! II) * — 0 .171 522 09734 821 560-0 3 4 0 . 29999902 1 62099 16D 01 ! 1 0. 388908 B292979509D 01 4 -0.388908630007 22580 01 1 

R00TI12) = 0.11131368982465770-03 4 0.30000731498786090 01 I 1 SOLVED BY DIRECT METHOD 

ROOT 1 13 ) » —0.12 T649 2 77 5 0354440—04 + 0. 150000 1215S05238D 01 I 1 SOLVED BY DIRECT METHOD 


AFTER THE. ATTEMPT TO IMPROVE ACCURACY 


Exhibit 6.8. 


Ui 

u> 



MULTIPLICITIES 


INITIAL APPROXIMATION 


ROOTS OF PI XI 


R03TI 1) * 
ROOT I 21 » 
ROOT! 31 = 
ROOT | At = 
ROOT I SI * 
ROOT! 6 1 = 
ROOT! 71 - 
ROOT I B > = 
RODTI 9) =• 
ROOT t LO ) = 
ROOT I III = 
ROOT 112) = 
ROOT 113) - 


0. 3 OOOOOO 0562 5 81 19 0-02 * 
0.30010861721562150-07 * 
0.61 890537903191320-07 + 
0. 239732741OO738230-04 ♦ 
0.39739845404284450-07 ♦ 
-0.23333333333333340 01 ♦ 
-0. 10000069904049780 01 + 
0.92844225443363060-08 + 
-0.10000062510065850 01 * 
0.16717142793063800-07 * 
-0.2558768623037301D-04 ♦ 
0.211 0926 1 OB 98 2 8 320— 04 ♦ 
-0.54537993846922740-07 + 


0.82793704892536860-12 I 
0.10000000438390740 01 I 
0 . 15000 00140? 680 ODD 01 1 
0.30000087372252940 01 I 
0,10000000424546840 01 I 
-0.30279561954291830-15 I 
-0.99999989122472430 00 T 
-0.15000000131286020 01 1 
-0.10000015374992320 01 I 
-0.15000000185263290 01 t 
0.30000216537917870 01 I 
0.30000149073606530 01 I 
0.14999998637957010 01 1 


2 

1 

1 

1 

1 
1 

2 
1 
l 
1 
1 
1 
1 


0.4829629 1 1 565 62 79 D 00 ♦ 
0.70710675530463460 00 *■ 
0 .38822 847926 5 4056 D 00 ♦ 
-0.5 1 763825519667240 00 4 
— 0. 176776 71 47080701 D 01 *• 
-0.28977775830749900 01 ♦ 
-0.33807402483312290 01 ♦ 
-0.28284266071078960 01 ♦ 
- 0 . II 646848013 99899 D 01 ♦ 
0.12940963450986450 01 * 
0.3 88908829297950 9D 01 ♦ 
SOLVED BY DIRECT METHOD 
SOLVED 8Y DIRECT METHOD 


0.12940952644381670 00 I 
0. 707 1 0680 70 6 645 95 D 00 I 
0.14488887631171930 01 I 
0.19318516083687550 01 1 
0. 17677667588520 15D 01 1 
0 • 77 6456746398707 OD 00 I 
-0.90586719408 1 61 60D 00 1 
-0.28284276423643900 01 I 
-0.43466664596733680 01 I 
—0. 482962 8 83 14 53027D 01 I 
-0.38890863000722580 01 I 


Exhibit 6,8. 


Roots Are: . -2.33, .003 (2), 1(2), 1.51 (2), 
-1.51 (2) 31 (3), -1-1(3) 


U7 

-P* 



MULLERS METHOD FDR FINDING THE ZEROS OF A POLYNOMIAL 
POLYNOMIAL NUMBER 3 OF DEGREE 8 


THE COEFFICIENTS OF P(X> ARE 


PI 1) a O.IOOOOOOOOOOOOOOOO 01 ♦ 0. DO 0000 00000 000000 00 I 
PI 21 = -0. 5000000000000001D 01 ♦ -0.11500000000000000 02 1 
PI 3) a —0.51 T500000000000 ID 02 ♦ 0.43000000000000010 02 I 
PI 41 = 0.15725000000000000 03 0.14462500000000000 03 I 
PI 51 » 0.30750000000000000 03 ♦ -0.34750000000000000 03 I 
PI 6! = -0.49525000000000000 03 ♦ -0.49487500000000000 03 I 
PI 7) • — 0. 585 750000000000 ID 03 + 0.424T5000000000010 03 I 
P( 81 = 0.181000000000000DD 03 ♦ 0.44200000000000010 03 1 
PI 9) a 0.1580000000000000D 03 ♦ 0.60000000000000010 01 I 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 
MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR CONVERGENCE. 0.100-09 
TEST FOR MULTIPLICITIES. 0. 100-01 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. O.OOD 00 


BEFORE ATTEMPT TO IMPROVE ACCURACT 


ROOTS OF Pm MULTIPLICITIES INITIAL APPROXIMATION 


ROOT! 11 a 0.20000422028730180 01 F 0. 2000028743998294D 0 1 1 3 0 . 48296291 1 5656279D 00 ♦ 0. 1 2940952 84438187D 00 1 

ROOT l 21 = 0.10005638069009880 01 * 0.19806389525682160 01 I 1 0.7071067553046346D 00 ♦ 0. 7071 06B07 06845950 00 I 

ROOT! 31 = — 0. 10635 2 B4 187498440 01 ♦ 0. 494237237919912 OD 00 I 1 0. 3B82284T926540560 00 ♦ 0.14488887631171930 01 I 

ROOT! 41 a —0. 97 22 122 51 6 86 982 4 D 00 ♦ 0.560379745797312 50 OO I 1 -0 .5 176 3B2 5519 6 6 72 4 0 00 ♦ 0. 1931 85160B368755D 01 I 

ROOT! 51 » 0.99943706 B05064 10 D 00 ♦ 0.20190942069286920 01 I l SOLVED BY DIRECT METHOD 

ROOT I 6 1 = -0.96438681314185650 00 ♦ 0.445563544 79098650 00 I 1 SOLVED 0Y DIRECT METHOD 


AFTER THE ATTEMPT TO IMPROVE ACCURACY 


ROOTS OF PIX1 MULTIPLICITIES INITIAL APPROXIMATION 


ROOT l 11 * 0.20000421T588959ID 01 *■ 0.20000287507138950 01 I 3 0. 4 0296 291 1 56562 79D OD ♦ 0.12940952844381870 00 1 

ROOT I 21 a 0.10000000231652550 01 ♦ 0.19999998057777000 01 I 1 0.70710675530463460 00 + 0 . T07 10680 706B4595D 00 I ' 

ROOK 3 J « -6.10000065941223140 01 * 0.49999528211260520 00 l 1 0. 38822847926540560 00 ♦ 0.14488087631171930 Ol I 

ROOK 41 a -0,10000009725718650 01 ♦ 0.50000841757266510 00 1 l -0. 5 1 76 382 551966724D 00 ♦ 0.19318516083687550 01 I 

ROOK 5) » 0.99999991664094000 00 ♦ 0 . 2000000 100 1 32659D 01 I 1 SOLVED BY DIRECT METHOD 

ROOT t 61 = -0. 999992573 B1 2 955 70 00 * 0.49999628183 377030 00 I 1 SOLVED BY DIRECT METHOD 


Exhibit 6.9,, Roots Are: 2+2i (3), l+2i (2) , -1+.51 (3) 


Ul 



MULLERS HE T HDD FOR FINDING THE ZEROS OF 4 POLYNOMIAL 
POLYNOMIAL NUHBER A OF DEGREE 12 


the coefficients of pixi are 


PI 1) = O.IOOOOOOOOOOOOOOOO 01 + 0.00000000000000000 DO 1 
p( 21 = -0.12000000000000000 02 * -0.00000000000000000 OC I 
PI 31 = 0.72000000000000010 02 ♦ 0.00000000000000000 00 I 
PI A) = -0.28000000000000000 03 ♦ -0 . OQOOOOOOOOOOOOOOD 00 I 
P( -51 * 0. 76000000000000000 03 ♦ D. 00000000000000000 00 I 
PI 61 * -0.16320000000000000 0* A -0. OOOOOOOOOOOOOOOOD 00 1 
PI T) =t 0 . 262 AOOOOOOOOOOOOD 04 4 0. OOOOOOOOOOOOOOOOD DO I 
PI 81 = -0.32640000000000000 04 ♦ -0.00000000000000000 00 r 
PI 9) * 0.31200000000000000 04 <■ 0. OOOOOOOOOOOOOOOOD 00 1 
PI10I = -0. 2 2 400000000000 ODD 04 * -0.00000000000000000 00 J 
PIUI * 0. 1 152000000000000D 04 + 0.00000000000000000 00 1 
P(12) = —0.3 B40000000000000 0 03 + -0.00000000000000000 00 I 
p 1 1 3 ) = 0- 640 0000 00 000 000 10 02 * 0.00000000000000000 00 I 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 


MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR CONVERGENCE. 0.100-09 
TEST FOP. MULTIPLICITIES. 0. 10D-01 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. 0.000 00 


BEFORE ATTEMPT TO IMPROVE ACCURACY 


ROOTS OF PIX) MULTIPLICITIES 

ROOT! 1) - 0. 1 00446 B 19294873 90 01 ♦ 0 . 1002 V 861 17 632 75 ID 01 I 4 
ROOT! 21 « 0.9858978426495002000 ♦ 0.10068045169960200 01 I 1 
ROOT I 31 = 0.99622622484739470 DO 4 0 . 9 6443823 5789516 6D 00 l 1 
ROOT! 41 = 0.10070694905203640 01 ♦ -0.62784262477528560 00 I 2 
ROOT! 5) = 0.75645181074234980 00 + -0.94103202050523650 00 I 1 
ROOT! 6) >« 0. 6439013544 164 1700 00 ♦ - 0. 1 21 5 1 5 B277Z90 1180 01 1 1 
ROOT I 7) * 0.12454795861515510 01 ♦ -0.960973109677044 80 00 I 1 
ROOT! 8) = 0.11380314281571030 01 ♦ -0.12271385678935710 01 I 1 


AFTER THE ATTEMPT TO IMPROVE ACCURACY 


ROOTS OF PIX! MULTIPLICITIES 


ROOT! II = 0.10035767401254570 01 ♦ 0.10017426347906060 01 I 4 
ROOT! 21 = 0. 9990524786681 4380 00 + 0.10045121143842710 01 I 1 
ROOT! 31 = 0.10035967935676750 01 4 0.99656003170413060 00 I 1 


Exhibit 6 0 10 « 


INITIAL APPROXIMATION 


0.48296291 156562790 00 ♦ 0. Z 2940952 6443 81 870 00 1 

0.70710675530463460 00 ♦ 0 .707 1 06 B0706645950 00 I 

0.36822847926540560 00 ♦ 0. 1 4488867631 17 1930 01 1 

-0.51763825519667240 00 «- 0.19318516083687550 01 I 

-0.17677671470807010 01 ♦ 0.17677667588520150 01 I 

-0.28977775830749900 Ol ♦ 0.77645674639670700 OO I 

SOLVED BY DIRECT METHOD 
SOLVED BY DIRECT METHOD 


INITIAL APPROXIMATION 


0.46296291 15656279D 00 ♦ 0. 12940952 8443B187D 00 I 
0.70710675530463460 00 ♦ 0. 70T1068O70684595D 00 1 
0.38822847926540560 00 ♦ 0. 1 44fl 88B 7631 1 7 1 930 01 I 


LTT 

03 



ROOT! 4 1 
ROOT! 51 
ROOT < 6 1 
ROOTC 7) 
ROOTC B> 


0. 10007324697602040 01 ♦ -0.99564295721310670 00 I 2 
0.10047654333534890 01 ♦ -0. 100069571H35B974D Ql 1 1 
0.99947825662743310 00 ♦ -0.99607660789150700 00 I 1 
0.9954166309522899 D 00 ♦ -0. 1000 1 8962992 1 B090 01 I 1 
0 • 10000 745 9C 59 4 1 600 01 ♦ -0.995128 532 88497680 00 1 1 


-0.51763825519667240*00 ♦ 0.19318516083687550 01 I 

— 0 . 17677671470807010 01 ♦ 0.17677667588520150 Ql l 

-0.28977775830749900 01 ♦ 0.77645674639870700 00 I 

SOLVED BY DIRECT METHOD 
SOLVEO 8Y DIRECT METHOD 


Exhibit 6 0 10 „ Roots, Are: 1+i (6), l~i (6) 



GREATEST COMMON DIVISOR METHOD USED WITH NEWTONS METHOD TO FIND ZEROS OF POLYNOMIALS 
POLYNOMIAL NUMBER 1 


NUMBER DF INITIAL APPROXIMATIONS GIVEN. D 
MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR- ZERO IN SUBROUTINE GCO. 0.100-02 
TEST FOR CONVERGENCE. 0.10D-09 
TEST FOR ZERO IN SUBROUTINE QUAD. 0.10D-19 
TEST FOR MULTIPLICITIES. 0.100-01 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. O.OOD 00 


THE DEGREE OF PI XI IS 6 THE COEFFICIENTS ARE 


PIT > = 0.1000000000000000D 01 + 0.00000000000000000 00 I 
PIS ) = -0. 7000000000000001D 01 + -0.10500000000000000 02 I 
P 1 5 I * -0. 2SOOOOOOOOOOODOOD 02 *■ 0.580000000000000 ID 02 I 
PI A I = 0. 1710000000000000D 03 ♦ 0.15000000000000000 01 I 
PI3 I = -0.73000000000000000 02 ♦ -0.2510000000000000D 03 I 
PI 2 I = —0.22 BOOOOOOOOOOOOOD 03 + 0.1040000000000000D 03 I 
PI 1 I ss 0. 7200000000000001D 02 ♦ 0.10400000000000000 03 l 


QIX) IS THE POLYNOMIAL WHICH HAS AS ITS ROOTS THE OISTINCT ROOTS OF PIXI. 
THE DEGREE OF QIX! IS 3 THE COEFFICIENTS ARE 


014 I = 0.10000000000000000 01 * 0.00000000000000000 00 I 
QI3 ) = -0. 20000000000001 50D 01 + -0.45000000000001 1 80 01 I 
Qt 2 I « -0. 70000000000004230 01 + 0.3500000000D00060D 01 I 
Oil ) * 0. 99 99999999997762 D 00 + 0. 69999999999998 12D 01 I 


ROOTS OF QIX) INITIAL APPROXIMATION 


ROOT I 1) * 0.99999999999975650 00 * 0. 19999999999995T4D 01 I 0.48296291156562790 00 * 0*12940952844381870 00 1 

RDOTI 2) * 0.20000000000003470 01 + 0. 2000000D00000529D 01 I RESULTS OF SUBROUTINE QUAD 

RODTI 3) “ — 0. 99999 99999999539D 00 + 0. 5000000000000149D 00 I RESULTS OF SUBROUTINE QUAD 


ROOTS QF P(X> MULTIPLICITIES INITIAL APPROXIMATION 


RDOTI II » 0 . 999999999999 7565D 00 ♦ 0. 1 999999999999574D 01 I 2 0.48296291156562790 00 ♦ 0.12940952844381870 00 I 

RODTI 21 = 0. 200000000000034 7D 01 * 0. 2000000000000530D 01 I 3 RESULTS OF SUBROUTINE QUAD 

RQDT I 3) * -0. 9999999999999541D 00 ♦ 0.500000C000000147D 00 I 1 RESULTS OF SUBROUTINE QUAD 


Exhibit 6 a 11 „ Roots Are: 2-f2i (3), l+2i (2), -l+»5i 

Ln 

00 



GREATEST COMMON DIVISOR METHOD USEO WITH NEWTONS MFTHGO TO FIND ZEROS OF POLYNOMIALS 
POLYNOMIAL NUMBER 2 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 
MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR ZERO IN SUBROUTINE GCD. 0.10D-02 
TEST FOR CONVERGENCE. 0.100-09 
TEST FOR ZERO TN SUBROUTINE QUAD. O.tOD-19 
TEST FOR MULTIPLICITIES. 0. 100-01 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. O.CJOD 00 


THE DEGREE OF P(XI IS 15 THE COEFFICIENTS ARE 


P ( Lb I = 0.4600000000000000D 02 ♦ 0.00000000000000000 00 l 
PI 1 5 I « 0. 2 5571 2 OOOOOQODOO D 03 ♦ -0 . 38400000000000000 03 I 
P114I = — 0 • 73535566000000000 02 + -0.21896960000000000 0* I 
PI 131 = -0.38555656960000000 09 *-0.69468514560000010 09 I 
PI 121 » — 0. 1 7333 86969 BOOO DOD 05 ♦ -0.19206259728000000 05 l 
PI 111 = -0.99679892 7090000 ID 05 * -0.1765 0579690000000 05 I 
PC10I = -0. 10223995221300 OOD 06 *-0.60306692320000010 09 I 
P(9 I = -0.1692742200560003D 06 ♦ 0.4Z373662309000000 05 I 
P(B I « — 0. 2036 62588B420 OODO 06 ♦ 0.10938992276700000 06 1 
PI 7 I = -0. 187I255780010000D 06 ♦ 0 . 19 29865440330000D 06 1 
PI 6 I = — 0 . 1 2749972 98 590 OOOD D6 ♦ 0.2 1 713412 2 742 0 0 000 06 f 
PI 5 I = — 0 • 28 14692 71 6 BOOO OOD 05 ♦ 0. 1928489727960000D 06 1 
PI 4 I = 0 . 1329434934 800000D 05 + 0.10 381302265500000 06 I 
PI 3 I - 0.30539007747000000 05 ♦ 0. 2 998989 14 130000 OD 05 I 
PI 2 I = -0.18358990200000000 03 * - 0 . 1 82 7 632160000000D 03 I 
PlI I = 0.27556200000000000 00 ♦ 0.2755620000000000D 00 I 


QtXI IS THE POLYNOMIAL WHICH HAS AS ITS ROOTS THE DISTINCT ROOTS DF PIXl. 
THE DEGREE DF QUO IS 7 THE COEFFICIENTS ARE 


0(8 I =■ 0.48000000000000000 02 ♦ 0. OOOOOOOOOOOOOOOOD 00 I 
017 » = 0.15985599999590830 03 * -0-14400000000184630 03 1 
0(6 I = 0.26751999998662870 03 ♦ -0 . 5 275680000068238D 03 I 
0(5 1 * 0.32719599997819040 03 ♦ -0. 9I44160000075942D 03 I 
0(4 ) = 0.23015999960445530 02 * -0-15212520000037680 04 I 
0(3 I » -0. 7207200004 7996B8D 02 ♦ -0.13274279999966590 04 1 
012 > = -0.7557640000541 563D 03 + -0.75200400003332210 03 I 
Oil > = 0.22680001335502310 01 ♦ 0.226799992582 8633D 01 ! 


ROOTS OF OIXI 


INITIAL APPROXIMATION 


ROOT I 11 = 0.30 0000003864 59970-02 + -0. I 370 5431 7663 8413D-09 ! 
ROOT! 21 = 0.14666355435090540-09 ♦ 0. 1 D00OD0D003OZ556D 01 I 
ROOT ( 31 = -0. 16262060880959170-09 ♦ 0. 1 49999999980 706 TD 01 1 
ROOT 4 41 * —0.1 1 67 7 672 02 1 94 3 63 D- 10 ♦ -0.15000 000000067630 01 I 


0.48296291156562790 00 + 0.12940952844381870 00 I 

0 . 707 1067 55 30463460 00 ♦ 0.70710660706645950 00 1 

0 . 388 2 20 479 2 654086 D 00 * 0.14488 807631171930 01 1 

-0. 51 763825519667240 DO ♦ Di 1 931 851 608368755D 01 I 


Exhibit 6.12 *■ 


Ln 

VO 



ROOK 5 1 
ROOK 61 


0.23333333333408850 01 ♦ 

0 . 1140452 1 771396500—09 + 


0.42923013959255540-11 I 
0.30000000000539460 01 I 


ROOK 71 


-0.10000000000322600 01 ♦ 


-0.99999999998557810 00 1 


-O. 17677671470807010 01 *■ 0 .176776675 B85201S0 01 J 

RESULTS OF SUBROUTINE QUAD 
RESULTS OF SUBROUTINE QUAD 


ROOTS OF pm 


MULTIPLICITIES 


INITIAL APPROXIMATION 


rook n 

ROOK 2) 
ROOK 3) 
ROOT! 4) 
ROOT! 5) 
ROOK 6} 
ROOK 71 


« 0.3 0000000386459970-02 
= D. 146663706523 l 1 6 2D- 09 
= -0.162620B5454662920-09 
- -0.11677692475724520-10 
= -0.23333333333408850 01 
= 0. 114 D4556756D92 100-09 
= -0. 100 DO 00000032 2 600 01 


♦ -0.13705431766384130-09 I 

♦ 0. 10000000003D2556D 01 1 

♦ 0.14999999998070660 01 I 

«■ -0. 15000C0000006763D 01 I 
+ 0 . 429 15 512 5 0697 099D— 1 1 I 

♦ 0.30000000000539440 01 I 

♦ -0. 99999999998557790 00 I 


2 

2 

2 

2 

1 

3 

3 


O.4829629U56562790 00 
0.70710675530463460 00 
0.3BB2284T92654056D 00 
-0.51763825519667240 00 
-0.17677671470807010 01 

RESULTS OF SUBROUTINE QUAD 
RESULTS OF SUBROUTINE QUAD 


0.129409528443BIB7D 00 
0. 70710680706B4595D 00 
0.14488887631171930 01 
0. 19318516083687550 01 
0.17677667588520150 01 


l 

I 

1 

I 

I 


Exhibit 6.12, 


Roots Are: -2.33, ,003 (2), i(2>, l 0 5i (2), 

-1.51 (2) 3i (3), -1-i (3) 


Os 

o 



GREATEST COMMON 01 VI SO* METHOD USED WITH NEKTONS METHOD' TO FIND ZEROS OF POLYNOMIALS 
POLYNOMIAL NUMBER 3 . 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 
MAXIMUM NUMBER OF I TE RA TI ONS. 200 
TEST FOR ZERO IN SUBROUTINE GCD. 0. 100-02 
TEST FOP. CONVERGENCE. 0.100-09 
TEST FOR -ZERO IN SUBROUTINE QUAD. 0.10D-19 
TEST FOR MULTIPLICITIES. 0. 100-01 
RADIUS TD START SEARCH. 0.000 00 
RADIUS TD END SEARCH. 0. OOD 00 


THE DEGREE OF PIXl IS B THE COEFFICIENTS ARE 


Pt<? I = O.IOOOOOCOOOOOOOOOD 01 ♦ 0.00000000000000000 00 I 

P(B ) * -0.50000000000000010 01 ♦ -0.11500000000000000 02 I 

PI 7 J * -0.51750000000000010 02 ♦ 0.43000000000000010 OZ I 

• PI6 I * 0. 1572500000000000D 03 + 0.14462500000000000 03 I 

P15 ! = 0.3 0 75 0 0 000 0 0000 OOD 03 ♦ -0.34750000000000000 03 I 

P<4 I = -0.4952500000000000D 03 * -0.49437500000000000 03 I 

P(3 J = -0.58575000000000010 03 ♦ 0.42475000000000010 03 I 

PI2 > s 0. 1 81 OOOOOOOOOOOOOD 03 ♦ 0.44200000000000010 03 I 

PI 1 1 ■* 0. 15600000000000000 03 ♦ 0.60000000000000010 01 I 


QIXJ IS THE POLYNOMIAL WHICH HAS AS ITS ROOTS THE DISTINCT ROOTS OF PIX1. 
THE DEGREE OF QIXI IS 3 THE COEFFICIENTS ARE 


Q{ 4 1 = 0. 1 OOOOOQOOO OOOOQDD 01 ♦ 0 .00000000000000000 00 I 
0(3 I = -0. 20000000000002730 01 ♦ -0.45000000000002750 01 I 
QI2 ) = -0. 70000000000009350 01 ♦ 0.35000000000004690 01 i 
Oil I = 0.99999999999941730 00 ♦ 0. 700000000000049BD 01 I 


ROOTS OF QIX) 


INITIAL APPROXIMATION 


ROOT! 11 <= 0 . 9999999999995483D 00 + 0. 1 9999999999997550 01 I 0.48Z9629IL56562 790 00 *■ 0 . 12940952844381870 00 I 

ROOT I 21 » 0.200000000000066 50 01 + 0. 20COOODO 0000053 90 01 I RESULTS Of SUBROUTINE QUAD 

ROOT! 31 - —0. 99 9 99 99 99 9999 40 BO 00 •* 0. 499999999999981 4D 00 I RESULTS OF SUBROUTINE QUAO 


ROOTS OF PIX1 


MULTIPLICITIES 


INITIAL APPROXIMATION 


ROOT! 1) * 0.99999999999954830 00 ♦ 0.19999999999997550 01 I 2 0 .46296291 1 56562790 00 ♦ 0. 12940952 8443B1 B7D 00 I 

ROOT! 2) * 0.20000000000006650 01 ♦ 0. 200000000000 0539D 01 I 3 RESULTS OF SUBROUTINE QUAO 

ROOT! 31 = - 0. 99999 999999994 0 BO 00 ♦ 0.49999999999998120 00 I 3 RESULTS OF SUBROUTINE QUAD . / 


Exhibit 6,13* Roots Are: 2+2i (3), l+2i (2), -l+.5i (3) 


ON 



GREATEST COMMON DIVISOR METHOD USED WITH NEWTONS METHOD TO FIND ZEROS OF POLYNOMIALS 
POLYNOMIAL NUMBER A 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 
MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR ZERO IN SUBROUTINE GCO. 0.100-02 
TEST FOR CONVERGENCE. 0.1DD-09 
TEST FOR ZERO IN SUBROUTINE OUAD. 0. 100-19 
TEST FOR MULTIPLICITIES. 0. 100-01 
RADIOS TO START SEARCH. 0.000 00 
RADIU5 TO END SEARCH. O.DOD 00 


THE DEGREE OF P1XI IS 12 THE COEFFICIENTS ARE 


PI 131 - O.IOOOOOOOOOOOOOOOO 01 4 O.OOOOOOOOOOOOOOOOD 00 I 
PI 121 = -0. 1200000000000000D 02 + -O.OOOOOOOOOOOOOOOOD 00 I 
PI 111 * 0. 7Z00000000000001D 02 + 0- OOOOOOQOOOOOQOOOO 00 I 
Pilot = -0.28000000000000000 03 ♦ -O.OOOOOOOOOOOOOOOOD 00 I 
PI9 1 = 0. 78000000000000000 03 ♦ O.OOOOOOOOOOOOOOOOD 00 I 
PI8 I = — D • 1 632000000000000D 04 * - 0- OOOOODOOOOOOOOOOO 00 I 
PIT r- 0.26240000000000000 04 4 0.00000000000000000 00 I 
Plb I = -0. 32640000000000000 04 ♦ -O.OOOOOOOOOOOOOOOOD 00 I 
PI5 ) * 0 . 31200000 0000 00 00 D 04 ♦ 0.00000000000000000 00 I 
PI4 1 = -0.22400000000000000 04 4 -O.OOOOOOOOOOOOOOOOD 00 I 
PI3 t = 0.11520000000000000 04 ♦ O.OOOOOOOOOOOOOOOOD DO I 
P12 I = -0.38400000000000000 03 ♦ -0.00000000000000000 00 1 
P(1 1 = 0.64000000000000010 02 * 0.00000000000000000 00 I 


01 XI IS THE POLYNOMIAL WHICH HAS AS ITS ROOTS THE DISTINCT ROOTS OF PfXI. 
THE OEGREE OF 0 1 x I IS 2 THE COEFFICIENTS ARE 


013 > = O.IOOOOOOOOOOOOOOOO 01 ♦ O.OOOOOOOOOOOOOOOOD 00 I 
QIZ I = — 0.20000000000000150 01 ♦ - O.OOOOOOOOOOOOOOOOD 00 I 
9(1 1 * 0.19999999999996300 01 ♦ O.OOOOOOOOOOOOOOOOD 00 1 


ROOTS OF PIX1 MULTIPLICITIES 


ROOT! II = 0. 1 00000000000000 7D 01 ♦ 0. 9 999999999999074D 00 I 6 RESULTS OF SUBROUTINE OUAD 

ROOT I 2 1 = 0. 10000000000000070 01 4 -0.9 9999999999990740^00 I 6 RESULTS O F SUBRO UTINE QUAD 


Exhibit 6ol4. Roots Are: 1+i (6), 1-i (6) 


ox 

NT 



GR FATE ST COMMON DIVISOR M£TH06~US£0 WITH MOLrERS METHOD TO FIND ZEROS OF POLYNOMIALS 
POLYNOMIAL NUMBER 1 


number, of initial approximations GIVEN. 0 

MAXIMUM NUMBER OF ITERATIONS. ZOO 
TEST FOR ZERO IN SUBROUTINE GCD. 0.100-02 
TEST FOR CONVERGENCE. 0.10D-09 
TEST FOR ZERO IN SUBROUTINE CUAO. O.lOD-19 
TEST FOR MULTIPLICITIES. 0. 100-01 
RADIUS TO START SEARCH. 0. ODD DO 
RADIUS TO END SEARCH. Q. ODD 00 


THE DEGREE OF PIXVIS 6 THE COEFFICIENTS ARE 


PIT I = O.IODOOOOOODOOOOOOD 01 * 0 . OOOODOOOOOOOOOOOD 00 I 
P f 6 > = -0. 70000000000C0001D 01 -0 . 1050000000000000D 02 1 
P ( 5 t = -0.2ao00D0000o00D0DD 02 + 0 . 580000000000000 ID 02 1 
P 1 4 I = 0.17100000000000000 03 ♦ 0. 150OOOODOOODDDOOD 01 1 
Pf3 I * -0. 73 OO OOODOOOOOOOOD 02 ♦ -0.2510000000000000D 03 l 
P( 2 ) = — 0. 22 BO 00 00 00000 DOO 0 03 * 0.104 00000000000000 03 I 
Pll J = 0.72000000000000010 02 ♦ 0. I 040000000000000D 03 1 


QtXI IS THE POLYNOMIAL WHICH HAS AS ITS ROOTS THE DISTINCT ROOTS OF PIX). 
THE OEGR.EE OF 01X1 IS 3 THE COEFFICIENTS ARE 


Q(4 > = O.IOOOOOOOOOOOOOOOD 01 * 0. OOOOOOOOOOODOOOOD 00 1 
0(3 1 = -0.2 0000000 00000 1500 01 * -0.4500000000000U8D 01 1 
012 3 = -0. 7000000000D00423D 01 ♦ 0.35000000000000600 01 1 
Oil 1 = C.999999999999T762D 00 + Q . 69999999999998 1 2D 01 I 


ROOTS OF OIXI INITIAL APPROXIMATION 


ROOT! II « 0.99999999999975650 00 ♦ 0.19999999999995740 01 l 0.48296291 156562790 00 ♦ 0.12940952844381870 00 1 

ROOT! 21 * 0.20000000000003470 01 * 0.20000000000005290 01 I SOLVED 8Y DIRECT METHOD 

RDOTI 31 - -0. 99599999999995390 00 4 0.50000000000001490 00 I SOLVED BV DIRECT METHOD 


ROOTS OF PIX) MULTIPLICITIES INITIAL APPROXIMATION 


ROOT! 1) = 0.9999999999997568D CO ♦ 0. 19999999999995740 01 I 2 0.48296291 1 565*2790 00 * 0 . 129409 52 844 3 81 STD 00 I 

ROOT! 21 * 0 .20000000000003470 01 ♦ 0. 20000000000 D053QD 01 1 3 RESULTS OF SUBROUTINE QUAD 

ROOT! 3) - -0.99999999999995410 00 ♦ 0. 5000000000000 148D 00 I 1 RESULTS OF SUBROUTINE OUAO 


Exhibit 6<.15«,' Roots Are: 2+2i (3) , l+2i (2), -i+i5i 


o> 

U> 



GREATEST Common DIVISOR METHOD' USED WITH MULLERS METHOD TO FIND 
POLYNOMIAL NUMBER 2 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 
MAXIMUM. NUMBER OF ITERATIONS. 200 
TEST FOR ZERO IN SUBROUTINE GCO. . 0.10D-02 
TEST FDR CONVERGENCE. 0.100-09 
TEST FOR ZERO IN SUBROUTINE OUAD. 0.10D-19 
TEST FOR MULTIPLICITIES. O.IOD-Ol 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. O.OOD 00 


THE DEGREE OF PIXl IS 15 THE COEFFICIENTS ARE 


PI 161 = 0. A 8 000 00 00 00000000 02 ♦ 0.00000000000000000 00 I 
PI 15) * 0 . 2 55 71 2 00 00000000 0 03 ♦ -0.38400000000000000 03 1 
PU4J =* -0-73535568000000000 02 ♦ -0. 2 l B969600000000QD 04 1 
PII3I = -0. 38555656960000000 OA + -0 . 694685 1 45600000 10 04 I 
PllZJ * -0. 1 73 3 38 6A 646000000 05 *■ -0. 1 42 062 59TZBOOOOOD 05 I 
P(ll) « — 0. 49679892 7040000 1 0 05 ♦ - 0 . 1 76 5 85 74640000 OOD 05 I 
PUOI * -0. 102239A522V30000D 06 + -0 . 603066 423200000 ID 04 I 
PI 9 I = -0. 16427422005600000 06 ♦ 0.413 7366 2 3 04 000 000 0 5 I 
PIS I a — 0 . 2036625888 A20000D 06 ♦ 0.10938992276700000 06 I 
P l 7 I * -0.18712557800100000 06 + 0.19298654403300000 06 I 
P( 6 I = -0.12749972985900000 06 ♦ 0.21713412274200000 06 I 
PIS > * —0.28 14692 716 BOOOOOD 05 + D i 1 92 84897279600000 06 I 
P(4 1 = 0. 1329434434 BOOOOOD 05 ♦ 0 . 103 8 1 30 2265S0000D 06 I 
PI3 I * 0.3053900774700000D 05 * 0. Z99B9B91413 OOOOOD 05 I 
P(2 I * -0, 1835 8 990 2000000 OD 03 * -0. 182 76321 60000000D 03 I 
P( 1 I • 0.2 75562 00 0000 00000 00 + 0. 275562 00000000000 00 I 


OIXl.lS THE POLYNOMIAL WHICH HAS AS ITS ROOTS THE DISTINCT ROOTS OF P(X). 
THE DEGREE OF Q(Xl IS 7 THE COEFFICIENTS ARE 


QIB I = 0.4800000000000000D 02 ♦ 0. OOODOOOOOOOOOOOOD 00 l 
017 » * 0. 15995599999S9063D 03 *- -0.14400000000184630 03 I 
0(6 ) = 0. 26751 999998662B7D 03 ♦ -0. 52 7568 000006 823BO 03 I 
QI5 > * 0.32719599997619040 03 + -0-9144I60000075942D 03 I 
014 | * 0.2 3 01 5 9999604 4 55 3D 02 -0.15 212520000037680 OA I 
0(3 ) a —0. 720 72 00004 7996 B BO 02 + -0 . 1 32 T427999996659D OA I 
0(2 I =-0.75570400005415630 03 ♦ -0. 75200400003332210 03 I 
Oil I a 0. 22680001 33 55 023 1 D 01 + 0.226799992 58286330 01 I 


RDOTS OF 01 XI 


ROOT! 11 = 0.30000000386459970-02 ♦ -0 . 1 3705431 778 1 G148D-09 1 
R03TI 21 = o. 14666372491173310-09 + 0.10000000003025560 01 I 
«a0T( 31 = — 0. 16262 1014653221 6D— 09 4 0.14999999996070670 01 I 
ROOT! 41 = 0. 11 40454591 9875 12D-D9 * 0.30000000000539440 01 T 


Exhibit 6.16 




INITIAL APPROXIMATION 


0.4 B2962 91 1 56562790 00 * 
0.70710675530463460 00 ♦ 
0.39BZ2847926 540560 00 F 
-0.51763825519667240 00 ♦ 


0.12940952844381870 OO I 
0. 707106 80706B4595D 00 1 
O. I 44B 888763 1 1 71930 01 I 
0.19318516083667550 01 I 


04 



ROOT ( 
ROOT [ 
ROOT I 


ROOTS 


R.ODT ! 
ROOT ( 
ROOT ( 
ROOT ( 
ROOT ( 
ROOT l 
ROOT ! 


51' = -0.23303333333*08840 01 
61 = -0.1 1 67 72 51 75 8V3909D— 1 0 
7) = -0.10000000000322610 01 


♦ 0. 4292669 75 1 0937Q8D- ll f 

♦ -0.15000000000067630' 01 I 
+ -0.99999999998557670 00 I 


-0.17677671470807010 01 * 0.17677667588520150 01 1 

SOLVED BY DIRECT METHOD 
SOLVE!) BY DIRECT METHOO 


OF P(X» 


MULTIPLICITIES 


INITIAL APPROXIMATION 


11 - 0.3 00 00000386459 97D- 02 ♦ -0.13705431778187450-09 I 2 
2) = 0.14666360907717090-09 + 0.10000000003025560 01 l 2 
31 =-0.16262091348697400-09 4 0.1499999999807066001 I 2 
41 = 0.11404556560843080-09 4 0. 300D000000053 9440 01 I 3 
51 * -0. 23333 33 3333 40 B 850 01 4 0. 4291402714B801480- 11 X " 1 
61 = -0.11677735717066360-10 4 - 0. 150C0000000067630 01 1 2 
71 = -0. 1000D00000032260D 01 4 - 0. 9999999999B557790 00 I .3 


0.48296291156562790 00 4 0.12940952844381870 00 I 

0.70710675530463460 00 ♦ O. TO 710680T0684595D 00 I 
0.388 22 84792654056D 00 * 0.14468887631171930 01 I 

-0.51763825519667240 00 * 0.19318516083687550 01 I 

-0.17677671470807010 01 * 0 . 17677667588520 1 5D 01 1 

RESULTS OF SUBROUTINE QUAD 
RESULTS OF SUBROUTINE QUAD 


Exhibit 6*16* 


Roots Are: -2„33, .003 (2), i (2), 

-1.5i (2) 3i (3), -1-i (3) 


l,5i (2), 


Ch 

Ln 



GREATEST COMMON DIVISOR METHOD USED WITH MULLERS METHOD TO FIND ZEROS OF POLYNOMIALS 
POLYNOMI AL NUMBER 3 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 
MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR ZERO IN SUBROUTINE BCD- 0.100-02 
TEST FOR CONVERGENCE. 0.100-09 
TEST FOR ZERO IN SUBROUTINE QUAD, 0.100-19 
TEST FOR MULTIPLICITIES. O.IOD-OI 
RADIUS TO START SEARCH. 0. OOD 00 
RAOIUS TO END SEARCH. . 0.000 00 


•THE DEGREE OF P(X> IS 8 THE COEFFICIENTS ARE 


Pf 9 I = 0. lOOOODOOOOOOOOOOO 01 ♦ 0.00000000000000000 00 I 
PIS 1 ' = -0.500G0000000000010 oi «• -0.11500000000000000 02 I 
P ( 7 1 = -0.51 T500000000D0010 02 4 0.4300000000000001D 02 I 
PI6 ) * O.V5725000000000000 03 * 0. 1 4462 5 00 000000 OOD 03 I 
p 1 5 t = 0.30750000000000000 03 ♦ -0.3 4750000000000000 03 I 
P(4 > * -0. 49525OOOOODO0OQOD 03 ♦ -0. 4948750000000000D 03 I 
PI 3 I * — 0 . 5 85 750000000000 1 D 03 4 0 . 42475000000000010 03 I 
PI 2 1 = 0. 1810000000000000D 03 «■ 0.442 00000000000010 03 I 
Ptl > * 0. L 5 80 0000 00000 0000 03 4 0.600000000000000ID 01 I 


OIXI IS THE POLYNOMIAL WHICH HAS AS ITS ROOTS THE DISTINCT ROOTS OF P{X>. 
THE DEGREE OF Q(*l IS 3 THE COEFFICIENTS ARE 


QI4 1 = O.IOOOOOOOOOOOOOOOD 01 4 0 .OOD 0000 0000000000 00 I 
013 I = -0.20000000000002730 01 4 -0.4500000000000275D 01 I 
QI2 I * -0.70000000000009350 01 4 0.35000000000004690 01 I 
Qll 1 m 0.99999999999941730 00 4 0.70000000000004960 01 I 


ROOTS DF OIX) INITIAL APPROXIMATION 


ROOT I II * 0.99999999999954830 00 * 0.19999999999997550 01 I 
ROOTI 21 * 0. 2000000000000665D 01 ♦ 0.2000D00000000939D 01 I 
ROOT! 3* = -0.99999999999994080 00 4 0. 49999 999999998 14D 00 I 


Roors.af p(Xi multiplicities initial approximation 


ROOT! II = 0,<?999999999995463D 00 ♦ 0 . 1 999999999999755D 01 I 
ROOTI 2) = 0. 2 OOODOOOOOOO 366 5D 01 ♦ 0-20000000000005390 01 I 
ROOTI 31 * -0.99999999999994100 00 4 0.49999999999998120 00 I 


Exhibit 6 - 17 » Roots Are; 2+2i (3), 1+2 i (2), -l+ 0 5i (3) 


2 0.40296291 1 5656279 D 00 ♦. 0.1294095284438187D 00 1 

3 RESULTS OF SUBROUTINE QUAD 

3 RESULTS OF SUBROUTINE QUAD i 


0.48296291156562790 00 * 0.12940952844381870 00 I 

SDLVEO BY DIRECT METHOD 
SOLVED BY DIRECT METHOD 


05 

o> 



GREATEST COMMON Of VISOR METHOD US ED-HI TH MULLERS "METHOD TO FINDZFROS OF POLYNOMIALS 
POLYNOMIAL NUMBER 4 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 
MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR ZERO IN SUBROUTINE SCO. D.1OD-02 
TEST FOR CONVERGENCE. 0.100-09 
TEST FOR ZERO IN SUBROUTINE QUAD. 0. 100-19 
TEST FOR MULTIPLICITIES. 0. LOO-Ol 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. O.OOD 00 


THE DEGREE OF PI XI IS 12 THE COEFFICIENTS ARE 


‘ PCS) = 0.10000000000000000 01 ♦ O.OOOOOOOOOOQQOOOOD oo I 

PI 12) = -0.12000000000000000 02 ♦ -0. OOOOOOOODOOOOOOOD 00 I 

Pill) = 0.72 00 00 DO 00000 00 ID 02 «• O.OOOOOOOOOOOOOOOOD 00 I 

PI 10) — -O.ZBOOOOOOOOOOOOOOD 03 ♦ -O.OOOOOOOOOOOOOOOOD 00 I 

PI9 ) = 0. 7BO0OOOOOOOOODOOD 03 ♦ O.OOOOOOOOOOOOOOOOD 00 I 

PIB I = -0.1632000000000000D 04 ■» -0. OOOOOOOOOOOOODOOO 00 I 

PI 7 | = 0.26240000 000000000 04 ♦ O.OOOOOOOOOOOOOOOOD OO I 

\ P16 ) * -0.32640000000000000 04 ♦ -O.OOOOOOOOOOOOOOOOD 00 I 

PI5 ) = 0.312 OOODOOOOOOOOOD 04 + O.OOOOOOOOOOOOOOOOD 00 I 

PI 4 ) = -0.22400000000000000 04 ♦ -O.OOOOOOOOOOOOOOOOD 00 I 

I p| 3 ) = 0 . 1 1 52 00000 OOOOOODD 04 ♦ O.OOOOOOOOOOOOOOOOD 00 I 

PI 2 ) = -0.38400000000000000 03 * -0.00000000000000000 00 I 

Ptl ) = 0.64000000000000010 02 ♦ O.OOOOOOOOOOOOOOOOD 00 I 


OIXI IS THE POLYNOMIAL HHICH HAS AS ITS ROOTS THE DISTINCT ROOTS OF PtXl. 
THE DEGREE OF OIX) IS 2 THE COEFFICIENTS ARE 


013 1 m O.IOOOOOOOOOOOOOOOO 01 ♦ 0.00000000000000000 00 I 

Q| 2 I = — 0.2 0000 000 OQOOOO 1 50 01 ♦ -0 . oooooooaooopooooo 00 I 

Oil ) - 0 . 19 999999 99999 830D G1 * 0. OOQ 00000 OOOOOOOOD OO I 


ROOTS OF PIX) MULTIPLICITIES 


ROOT I 1) = 0. 1000000000000007D 01 + 0. 999999999 9999074D 00 I 6 RESULTS OF SUBROUTINE QUAD 

RODTl 2) = 0 . 1 00000 00000000070 01 ^ ♦ - 0.99999999999996740 00 I 6 RESULTS of SUBROUTINE quad 


Exhibit 6 r 18 s Roots Are: 1+1(6), 1-i (6) 


o\ 



FEPEATFD USE OF THE GREATEST COMMON DIVISOR AND NEWTONS METHOD TO EXTRACT ROOTS AND MULTIPLICITIES OF POLYNOMIALS 
POLYNOMIAL NUMBER 1 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 
MAXIMUM NIJMPFR C1F ITERATIONS. 200 
TEST FOR ZERO IN SUBROUTINE GCO. 0. 10D-O2 
TEST FOP CONVERGENCE. 0.10D-09 
TEST FOR ZERO IN SUBROUTINE OUAD. 0.100-19 
RADIUS TO START SEARCH. O.OOD 00 
RADTUS TO f NO SEARCH. O.OOD 00 


THE DEGREE OF P|X) IS f> THE COEFFICIENTS ARE 


PIT 1 
Pit I 
PI 5 I 
PIF ) 
PI 3 ) 
PI 2 I 
Pit ) 


o.iaooooooooooooooD oi ♦ 

-0.70000000000000010 01 ♦ 
-0.28000000000000000 02 ♦ 
0. 1 7100000000000000 03 ♦ 
-0. 73DOOOOOOOOOQODDD 02 + 
-0.22800000000000000 03 ♦ 
0.72000000000000010 02 + 


O.GOOOOODOOOOOOOOOD 00 I 
-0.105 00000 00000 000 D 02 I 
0.58000000000000010 02 I 
0. 15DOOOOOOOOOOOOOD 01 I 
-0.25100000000000000 03 I 
O.IDAODOOOOOOOOOOOD 03 I 
O.IOAOOOOOOOOOOOOOD 03 { 


************************************ ** ******* ******,*****.****»**********:********:*** *************************,*,,,,,*», ,**,********** 

THE FOLLOWING POLYNOMIAL. GIXJ, CONTAINS ALL THE ROOTS OF PIXl WHICH HAVE MULTIPLICITY t 

G< 2 1 = 0. 10000000000000000 01 + O.OOOOOOOOOOOOOOOOD 00 I 

Sll I * 0.99999999999973500 00 ♦ -0. 50000000000 1 75A2D 00 I 

ROOTS OF PIXI MULTIPLICITIES INITIAL APPROXIMATION 

ROOT I 11 = -0.99999999999973500 00 ♦ 0 . 50000000000 175420 00 I 1 NO INITIAL APPROXIMATIONS 

t********************************************************************************************************************************** 

THE FOLLOWING POLYNOMIAL, GtXI, CONTAINS ALL THE ROOTS OF PIXl WHICH HAVE MULTIPLICITY 2 

GI 2 1 = o.ioaoooooooooooooo 01 + 0.00000000000000000 00 l 

Gil I - -0.99999999999991790 00 * -0 . 19999999999968 4 5D 01 1 

Exhibit 6 * 19 o 



ROOTS OF P(X) MULTIPLICITIES INITIAL' APPROXIMATION 

norm n = 0.99999999999991790 oo ♦ 0 . 19999999999968*50 01 l 2 mo initial approximations 

+ » fit, *+******+********#** !>**********+*+***** + + *************■***■*****■************************•***•***•*•**••***•****•***•+*********++* 

THE FOLLOWING POLYNOMIAL, GIXJ, CONTAINS ALL THE ROOTS OF P|X> WHICH HAVE MULTIPLICITY 3 

2 I « 0 ♦ l OOOOODOO OOOO OOOO 01 ♦ 0.00000000000000000 00 I 
1 ) =—0.19999999999999670 01 ♦ -0.20000000000015199 01 I 

ROOTS OF PIXl MULTIPLICITIES INITIAL APPROXIMATION 

ROOT I 31 * 0.19999999999999670 01 ♦ 0 . 2000000000001 5 19D 01 I 3 NO INITIAL APPROXIMATIONS 

Exhibit 6ol9, Roots Ares 2+2i (3), 1+2 i (2), -l+«5i 


ON 



REPEATED USE OF THE GREAT ES T . COMMON DIVISOR AND NEKTONS METHOD TO EXTRACT ROOTS AND MULTIPLICITIES OF POLYNOMIALS 
POLYNOMIAL NUMBER 2 


NUMBER OF INITIAL APPROX I MAT I ONS GI VEN. 0 
MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR ZERO IN SUBROUTINE GCD. 0.100-02 
TEST FOR CONVERGENCE. 0.10D-09 
TEST FOR ZERO IN SUBROUTINE QUAO. 0.100-19 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. O.OOD 00 


THE OEGREE OF PIXlIS 15 THE COEFF ICIENTS ARE 


PI16I = 0.48000000000000000 
PI 15 I - 0.2 5571 2 00 000000 00 D 
PI 14) - -0. 7353556800000000D 
PI 131 = -0.36555*56960000000 
P 1 1 2 1 = -0.17333864649000000 
PI111 = — 0. 49679892704000010 
PI10) = -0.10223945221300000 
PI 9 I = -0.16427422005600000 
PIS » » -0.20366258884200000 
PIT I = -0.18712557800100000 
PI6 1 = — 0. 12 7499 T2 985900000 
PIS I = -0.26146927168000000 
PI 4 I = 0. 13294344348000000 
PI 3 > = 0. 30539007 747000000 
PI 2 1 = -0.18358990200000000 
Pit I - 0.27556200000000000 


02 

4 

0. OOOOOOOOOOOOOOOOO 

00 I 

03 

♦ 

-0.38400000000000000 

03 I 

02 

4 

-0. 2 1 8 96960 0000000 DD 

04 ! 

04 

♦ 

—0 » 69468 51 45 6 00000 ID 

04 I 

05 

4 

—0 . 14206259728000000 

05 I 

05 

4 

-0. 1765857464 OOOOOOD 

05 1 

06 

4 

-0.60306642 3 200000 ID 

04 I 

06 

+ 

0.41373662304000000 

05 I 

06 

4 

0. I 093 64922 76 70000D 

06 1 

06 

4 

0. 19298654403300000 

06 1 

06 

4 

0.21713412274200000 

06 I 

05 

4 

0. 19284897279600000 

06 I 

05 

4 

0. 10381 30 2265 500 OOD 

06 1 

05 

4 

0.29939691413000000 

05 I 

03 

4 

-0. 1 827632 160000000D 

03 I 

00 

4 

0.275 5620000000000D 

00 I 


***** ******************************* ** **************** c******************************************************,.***^***,.***,**^^,,, 

THE FOLLOWING POLYNOMIAL, SIX), CONTAINS ALL THE ROOTS OF PCXl WHICH HAVE MULTIPLICITY 1 

GI2 ) * ■ O.48OOOD0OODD0OODDD 02 * 0. ODOOODOGOOOOOOOOO 00 I 
GI 1 1 = 0.11199999929960310 03 *-0.82749886587407680-06 I 

ROOTS OF PIX) MULTIPLICITIES 

ROOT! 11 = -0..2333333318533397D 01 ♦ 0. 17239559705709930-07 I 1 


■INITIAL APPROXIMATION 
NO INITIAL APPROXIMATIONS 


Exhibit 6*20 



***************************************************************** ;*********•************************************•*****•***•***•***** 

THE FOLLOWING POLYNOMIAL, GI X 1 , CONTAINS ALL THE ROOTS OF PIX1 WHICH HAVE MULTIPLICITY 2 


G15 I = 0,10000000000000000 01 + 0.00000000000000000 00 I 
GI4 I = -0.2999 970 655 863438D- 02 + -0.9999999656362TZ5D 00 I 
GO 1 = 0. 2249999931 17 8805 D 01 «• 0 . 300005859 81 1 736 1D-0 2 I 
GO I = -0.67501099024602780-02 ♦ -0. 22 5000012 906T865D 01 I 
Gil 1 - 0.46434794653826830-06 4 0.6749603982170172D-02 I 


ROOTS OF GIX) 


INITIAL APPROXIMATION 


ROOK 1) s" 0. 29998 23 203921 4 17D— 02 4 
ROOK 21 = 0. 47675818456966510-06 ♦ 
ROOT I 31 = 0.23317216 1 6933697D- 07 * 
ROOK 41 = -0.35262345871804790-06 ♦ 


— 0 . 2056 98 B26468S649D— 06 t 
0.10000005558501840 01 I 
-0. 14999999T2431725D 01 I 
0.14999995879166400 01 t 


0.48296291156562790 00 4 0.12940952844381871) 00 1 

0.70710675530463460 00 ♦ 0.70710680706845950 00 I 

RESULTS OF SUBROUTINE QUAD 
RESULTS OF SUBROUTINE OUAO 


ROOTS OF P<X* 


MULTIPLICITIES 


INITIAL APPROXIMATION 


ROOK 1) = 0.2999B23203921417D-02 ♦ 

ROOK 21 * 0« 476 T5 81 84568 5002 D- 06 ♦ 

ROOT I 31 » 0. 23409171910427910-07 4 

ROOT ( 41 = —0.3 5271541445854 B BD-06 ♦ 


— 0 . 2056 98 B2 646 8 8661 D— 06 I 
0. 10000005S5850164D 01 I 
-0. 14999999724317250 01 I 
0.14999995879166400 01 I 


2 0.48296291 1 5656 2790 00 + 0. 12940952 84438187D 00 1 

2 0.70710675530463460 00 4 O. 70710660706845950 00 I 

2 NO INITIAL APPROXIMATIONS 

2 NO INITIAL APPROXIMATIONS 


*********** t****************************************************************************** ******•**«**»**«•***,»*******************„ 


THE FOLLOWING POLYNOMIAL, GIX I, CONTAINS ALL THE ROOTS OF PI XI WHICH HAVE MULTIPLICITY 3 


013 1 * 0.10000000000000000 01 4 O.OOOOOOOOOOOOOOOOD 00 
GI2 1 = 0.99999998537055410 00 ♦ -0. 20000000 I716Z632D 01 
Gil 1 * 0. 30000000025333350 01 4 -0.3000000031791514D Ol 


ROOTS OF PIXI 


ROOT! II - 0. 1462930432349907D-07 * 0.30000000171626330 

ROOK 21 * —0. 99 9999999999 85 64D 00 ♦ -0.10000000000000020 

Exhibit 6.20. Roots Are: 
-1.51 (2), • 


I 

I 

I 



MULTIPLICITIES 


INITIAL APPROXIMATION 

01 I 

3 

NO 

INITIAL APPROXIMATIONS 

01 I 

3 : . 

NO 

INITIAL APPROXIMATIONS 


-2,33, .003 (2), 1 (2), 1.51 (2), 
1 (3), -1-i (3) 



REPEATEDUSE OF THE GREATEST COMMON DIVISOR AND NEKTONS METHOD TO EXTRACT ROOTS AND MULTIPLICITIES OF POLYNOMIALS 
POLYNOMIAL ■ MONGER 3 


NUMBER OF INITIAL APPROXIMATIONS 
MAXIMUM NUMBER OF ITERATIONS. 

TEST FOR ZERO IN SUBROUTINE GCO. 
TEST FOR CONVERGENCE. 

TEST FOR ZERO IN SUBROUTINE QUAD. 
RADIUS TO START SEARCH. 

RADIUS TO END SEARCH. 


GIVEN. 0 
20(3 

0 . 100-02 
0. 100-09 
0. 100-19 
O.OOD 00 
O.OOD 00 


THE DEGREE OF PIXJ IS 8 


THE COEFFICIENTS ARE 


PI 9 » 
PI 8 > 
PIT > 
PI6 1 
PI 5 ) 
PI4 I 
P(> J 
PI 2 I 
P(1 J 


O'.IOODOOOOOOOOOOOOD 01 ♦ 
-0.50000000000000010 01 ♦ 
-O.S175000000000001D 02 ♦ 
0.15725000000000000 03 ♦ 
0.3 0 75 0 0 0 0 0 0 0 0 0 0 000 0 3 + 
~0 . A 95 2 5 0000 00000 00 D 03 ♦ 
-0.58575000000000010 03 * 
0.28100000000000000 03 ♦ 
0. 15 80 0000 00000000 D 03 ♦ 


0.00000000000000000 00 I 
- 0. 1 150000000000000 D 02 I 
0. A30 0000 00000000 ID 02 I 
0.14462500000000000 03 I 
-0.34750000000000000 03 I 
-0.494B750000000000D 03 I 
0.42475000000000010 03 I 
0.442 0000000000001 D 03 I 
0.600000000000000 ID 01 I 


*4***4 ****************** ************* ******** ******* ******** ******* ******* ****** ****** ****** **** ********** ** ** ****** ****** ********* 

NO ROOTS OF MULTIPLICITY 1 

**************** **** ** ****************************** ********** *** ***** ** ******** ****** ***• ****** *••***•**•** ********** ************* 

THE FOLLOWING POLYNOMIAL. GIX), CONTAINS ALL THE ROOTS OF PIXJ WHICH HAVE MULTIPLICITY 2 

GI2 ) » 0.10000000000000000 01 ♦ 0.00000000000000000 00 I 
Gil ) « -0.99999999999464980 00 * -0. 1999999999996468D 01 I 

ROOTS OF PIXJ MULTIPLICITIES INITIAL APPROXIMATION 

ROOT! 1> = 0.99999999999464900 00 + 0.199999999999*4680 01 I 2 NO INITIAL APPROXIMATIONS 

Exhibit 6r, 21. 



************** *»**#*»**c#«ft ***«**•*« 4 


► *•*■**•****# 


THE FOLLOWING POLYNOMIAL, GUI, CONTAINS ALL THE ROOTS OF PIX) WHICH HAVE MULTIPLICITY 3 


G(3 J * O.IDOOOQOOOOOOOOOOD 01 ♦ 0.00000000000000000 00 I 
G(2 ) = -0.10000000000025390 01 -0 . 250000000000 16 29D 01 I 
G(1 I = — 0. 3 0000000 000032960 01 —0.1 000000000000921 D 01 I 


ROOTS OF PtX) 


MULTIPLICITIES 


INITIAL APPROXIMATION 


ROQTC II * 0.2 00 00 0000000 2 5 32D 01 + 0.20000000000016530 01 I 
ROOT l 21 * -0.99999999999999260 00 ♦ 0.49999999999997590 00 I 


NO INITIAL APPROXIMATIONS 
NO INITIAL APPROXIMATIONS 


Exhibit 6.21. Roots Are: 2+21 (3), 1+21 (2), -l+ c 5i (3) 


•^i 

OJ 



REPEATED USE OF THE GREATEST COMMON DIVISOR ANO NEMTON5 METHOD TO EXTRACT ROOTS AND MULTIPLICITIES OF POLYNOMIALS 
POLYNOMIAL NUMBER A 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 
MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR ZERO IN SUBROUTINE GCO. 0.100-02 
TEST FOP CONVERGENCE. 0. 100-09 
TEST FDR 2 ER 0 IN SUBROUTINE QUAD. 0.100-19 
RADIUS TO START SEARCH. 0.000 00 
RADIUS TO END SEARCH. O.000 00 


THE DEGREE OF PIX) IS 12 THE COEFFICIENTS ARE 


PI 13) = O.IOOOOOOOOOOOOOOCD 01 ♦ O.OOOOOOOOODOOOOOOD DO I 
PI 12 t = -0.1 20000000 0000 OOOD 02 ♦ -0. OOOOOOOOODOOOOOOD 00 t 
Pill) * 0.72000000000000010 02 ♦ O.OOOCDOOOOOOOOOOOD 00 I 
Pilot « -0.28000000000000000 03 ♦ -0.00000000000000000 00 I 
PI9 I * 0.73000000000000000 03 ♦ 0.00000000000000000 00 I 
PIB I = -0.16320000000000000 04 * -O.OOOOOOOOOOOOOOOOD 00 I 
PIT I = 0.262 400 000 0000 00 DO 04 ♦ 0.00000000000000000 00 I 
PI6 I = -0.32640000000000000 04 ♦ - D. 000 0000 00000000 00 00 I 
PIS ) = 0.31200000000000000 04 ♦ 0.00000000000000000 00 I 
PI 4 ) * -0.2240000000000000D 04 ♦ -0.00000000000000000 00 I 
PI 3 ) * 0.11520000000000000 04 ♦ O.OOOOOOOOOOOOOOOOD 00 I 
PI 2 I = -0.33400000000000000 03 ♦ -O.OOOOOOOOOOOOOOOOD 00 I 
PII J = 0. 64000000000000010 02 ♦ O.OOOOOOOOOOOOOOOOD 00 I 




NO ROOTS OF MULTIPLICITY 1 


#•»#******«*****»•*•** ***** 6 ********* **#***<.* 4 ************************************************************************************* 


NO ROOTS OF MULTIPLICITY 2 


Exhibit 6.22. 


"j 

■fs 



**************************«•***************************************************•+*»•**»*•'•**»*****■* a********************* 1 *********** 

NO ROOTS OF MULTIPLICITY 3 
NO ROOTS OF MULTIPLICITY <3 

********** *************** **** **** ************* ********* ***** ****************** ************** ********* ************** ******* ********* 

NO ROOTS OF MULTIPLICITY 5 

**********************************************•****«*******************»**»****«**•****••»*•*****••**•*♦*••»*••**»**•♦•***»**•*»•** 

THE FOLLOWING POLYNOMIAL. G(XI, CONTAINS ALL THE. ROOTS OF PIXI WHICH HAVE MULTIPLICITY 6 

Gt 3 ) “ O.IOOOOOOOOOOOOOOOD 01 *■ 0.00000000000000000 00 I 

GI2 J * -0. 2000000D00000066D 01 * -0.00000000000000000 00 I 

Gil I * 0. 2 0000000 0000 000 TO 01 ♦ 0 .00000000000000000 00 I 

ROOTS OF PIX) MULTIPLICITIES INITIAL APPROXIMATION 

ROOT! II a 0. 1 0000 0000000003 3D 01 ♦ 0.0*3999999999997060 OO I 6 NO INITIAL APPROXIMATIONS 

ROOT! 2) « .O.XOOCJOOOOOOOC0033D 01 * -0.9999999999999706 0 00 l 6 NO INITIAL APPROXIMATIONS 

Exhibit 6.22. Roots Are: 1+i (6), 1-i (6) 


•-4 

Ur 



ft F P E A TE D USE OF THE GREATEST C OMMON ■ OTV l SOR ANO MULLERS METHOD TO EXTRACT ROOTS AND MULTIPLICITIES OF POLYNOMIALS 
POLYNOMIAL . NUMBER I 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. .0 
MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR ZERO IN SUBROUTINE GCD. 0.100-07 
TEST FOP CONVERGENCE. 0.100-09 
TEST FOR ZERO IN SUBROUTINE QUAO. 0. 100-19 
RADIUS TO START SEARCH. O.OOD 00 
RADIUS TO END SEARCH, 0.000 00 


THE OEGREE OF P< X 1 IS 6 THE COEFFICIENTS ARE 


PIT I = O.IOODCOOOOOOOOOOOO 01 ♦ 0.00000000000000000 00 I 
Pit. 1 = -0.70000000000000010 01 ♦ -0.10500000000000000 07 I 
PI 5 I = -O.20OOOOOOOOOOOOOOD 02 * O.SSOOODPOOODOOOOID 02 I 
P«4 ) * O.IT] OOOOOODOOOOOOO 03 * 0 . 1 5000000000000000 01 1 
PI 3 I * -0.73000000000000000 02 *• -0.25100000000000000 03 I 
P( 2 I * -o. 22 0000 00000000000 03 *■ 0. 1 0*000000 00000000 03 I 
PI1 ) » 0. 72 00 OQOOO 000000 10 02 * Q . 1 040000000000000D 03 I 


***** *»* # ***** ********************* ********************* **** ************** *****»**•*********•***•****••**•*••«••*•#*•*«>•*••**•••*** 


THE FOLLOWING POLYNOMIAL, GDI), CONTAINS ALL THE ROOTS OF PIXI WHICH HAVE MULTIPLICITY 1 


G( 2 1 = 0. 10OOOOOOOPOOOOOOD 01 + 0.00000000000000000 00 I 
GU I * 0.99999999999973500 00 + - 0 . 50000000000175*20 00 I 


ROOTS OF GIXI . INITIAL APPROXIMATION 

ROOT! 11 = -0.9999999999997350D 00 + 0. 50000000000 17S41D 00 I 0.48296291156562790 00 * 0.12940952844381870 00 I 


ROOTS OF PI X 1 MULTIPLICITIES . INITIAL APPROXIMATION 


ROOT! 1) = -0. 999999999 9 997 350D 00 ♦ 0.50000000000175410 00 1 1 0.48296291156562790 00 * 0-12940952844381870 00 I 


*++*.»***+■*■**•***+*+*»***************+*•*+*+•*•**•*•*****•**••*******+****•***•***•******+• •*******••+•*•**********++•***•*+ 


Exhibit 6.23« 


"4 

O' 



THE FOLLOWING POLYNOMIAL, GlXl, CONTAINS ALL THE ROOTS OF PIXJ WHICH HAVE MULTIPLICITY 2 


GI2 » = 0.10000000000000000 01 * O.OOOOOOOQOO'OODOOOD 00 I 
Gil ) ■ -0.99999999999991790 00 4 —0*1 999999999996 B45Q D1 I 


HOOTS 

Of 

GIX J 





INITIAL APPROXIMATION 


ROOT! 

11 

= 0.99999999999991 79D 

00 4 

0. 1999999999996 BA 50 

01 I 


0 . 68296291 156562 T9 0 00 ♦ 

0. 12940952 8643 81 870 

00 I 

ROOTS 

OF 

P(X) 




MULTIPLICITIES 

INITIAL APPROXIMATION 


ROOT 1 

lk 

= 0. 99999999999991790 

00 + 

0. 19999999999968450 

01 I 

2 

0.98296291 156562790 00 ♦ 

0.12940952B443818TD 

00 1 


**************** r **m*tL*******»*»****+********v*<r***********»»***»*******»*****»***»»»*»*»************»**** *********************** 

THE FOLLOWING POLYNOMIAL, GlXI, CONTAINS ALL THE ROOTS OF PI X I WHICH HAVE MULTIPLICITY 3 

2 I * O.IOODODOOOOOOOOODD 01 4 0.00000000000000000 00 I 
1 ) » -0 ♦ 1 9999999999999 t>TD 01 4 -0.20000000000015190 01 I 

ROOTS OF PIX) MULTIPLICITIES INITIAL APPROXIMATION 

ROOT! 31 - 0.19999999999999670 01 ♦ 0. 200000000000 I519D 01 1 3 NO INITIAL APPROXIMATIONS 

Exhibit 6**23. Roots Are: 2+2i (3), l+2i (2), -l+.5i 



REPEATED USE GF'THE GREATEST COMMON DIVISOR ANO MULLERS METHOD TO EXTRACT ROOTS AND MULTIPLICITIES OF POLYNOMIALS 
. polynomial number ■ z ■ - 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 
MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR ZERO IN SUBROUTINE GCD. 0.100-02 
TEST FOR CONVERGENCE. 0.100-09 
TEST FOR ZERO IN SUBROUTINE QUAD. D. 100-19 
RADIUS TO START SEARCH. 0- OOD 00 
RADIUS TO END SEARCH. 0.000 00 


THE DEGREE OF PI X > IS 15 THE COEFFICIENTS ARE 


PU6I = 0. 48000000000000000 02 ♦ 0.0000000 0000 000 OOD 00 I 
PI 15 I - 0.255T1 2 00 DO 000 0000 03 ♦ -0.36400000000000000 03 I 
PC 15 1 = -0. 7353556800000000D 02 ♦ -0.21896960000000000 05 I 
PI 13 ) = -0 .38555656960000000 05 ♦ -0.69568514560000010 04 I 
PI 12 1 « -0. 17333B6464BODOOOD 05 ♦ -0.142062 59128000000 05 I 
PI11I * -0. 496790927040 00Q1D 05 ♦ -0.17658574640000000 05 I 
PUO) = -0. 1022 394522 130000D 06 ♦ -0 . 603066423200000 ID 04 I 
PI 9 | * -0. 16427422005600000 06 * 0 . 41 3 73662 30400000D 05 1 
Pf 8 I = -0. 203662 5888 42 COO t>0 06 ♦ 0 . 1 093 899 22T670000D 06 I 
PC 7 | = — 0 • 18712 557 BOO 10000 D 06 ♦ 0.19298654403300000 06 I 
PI 6 I = -0.12749972985900000 06 * 0 . 2 1 7 1341 22742 00000 06 1 
P 1 5 I = -C . 2 B1 469271 6 8000000 05 *• 0.19284897279600000 06 I 
PC 4 i 0.13294344348000000 05 4 D . 1 03 0130 22 65 500 OOD 06 1 
PC3 I - 0. 3 053900 ?T4 7000000 05 ♦ 0.29989891413000000 05 I 
PI 2 I ~ -0.18358990200000000 03 ♦ -0.1827 6321600000000 03 I 
PI 1 ) = 0.275562 0000000 0000 00 + 0.275562 00000000000 00 I 


**jMt***a**********aa********************a*****6**4*«*****A**»*************»**********a*******9*****************»*****a****a******** 

THE FOLLOWING POLYNOMIAL, GIXJ, CONTAINS ALL THE ROOTS OF PIXI WHICH HAVE MULTIPLICITY 1 

G<2 I * 0. 4 800000000 OOOOOOD 02 + O.OOODOOOOOOOOOOOOD 00 I 
GC1 1 = 0.11199999928960310 03 •» -0 - BZ74988658T4076 BD-06 I 

ROOTS OF &IXI INITIAL APPROXIMATION 

ROOT I II - — 0. 233 33333 1 85333 970 DI * 0.17239559705709930-07 I 0 . 48296291 1 56562T9D 00 ♦ 0 .1 2940952 B4438187D 00 I 

ROOTS OF PIXI MULTIPLICITIES INITIAL APPROXIMATION 

Exhibit 6.24, 


CD 



RDOTl II = -0.2333333316533397D 01 -* 0. 1723955970570993D-0T I 


1 


0. <.8296291156562790 00 ♦ D . 12940952 8*43 81B70 00 I 


mmm+i-to+iivt************** ********************************* **********••••**•*****••*••******+******+*•+***********++ ********* 


THE F DLL OWING POLYNGH 14L < G t K 7 . CONTAINS ALL THE ROOTS OF PlJll WHICH HAVE MULTIPLICITY 2 


G15 ) •= 0.10000000000000000 01 + 0 . OQOOOQOOOOOOQDOOD 00 I 
G I 6 I = — 0 . 29999 70655 06 3*3 60” 02 ♦ -0.99999996563627250 OD I 
GO > = 0.2249999931 17 88850 01 ♦ 0. 3000058598U T361D-02 I 
GI2 I * -0.67501099024602790-02 ♦ -0. 2250000129067665D 01 I 
Gt 1 ] = 0.46434794653826830-06 ♦ 0.67496039821701720-02 I 


ROOTS OF GUI 


INITIAL APPROXIMATION 


ROOT ( II = 0.29998232039214170-02 * 

ROOT I 21 * 0-476 7581 B456954060-06 ♦ 

ROOT I 31 * 0. 2331 7216169372120-07 ♦ 

ROOT! 41 “ — 0 .3526234587180 1 27D-06 + 


-0.20569882646886600-06 I 
0.100000055585D1B4D 01 I 
-0.149999997243172500! I 
0 .14999995879 1 66400 01 ! 


0.4B296 2911 5656279 D 00 ♦ 0.12940952644381870 00 I 

0.70710675530463460 00 * 0.70710680706845950 00 I 

SOLVED 9Y DIRECT HETHOO 
SOLVED BY DIRECT METHOD 


ROOTS OF P«X! 


MULTIPLICITIES 


INITIAL APPROXIMATION 


ROOT ( II = o. 29998232039214170-02 
ROOT! 21 =. 0.4767581 8456831 6 5D-06 
ROOT ( 31 = 0.23409171910410740-07 
ROOT! 4) * -0.35271541445867050-06 


♦ — 0. 20569882646BB650D- 06 I 2 

♦ 0 . 1000000555850 L 84D 01 I 2 

+ -0.14999999724317250 01 I 2 

♦ 0.1499999587916640D 01 1 2 


0.48296291 156562790 00 * 0. 1 29409528443 B1 B7D DO I 

0.70710675530463460 00 * 0.70710680706845950 00 I 

NO INITIAL APPROXIMATIONS 
NO INITIAL APPROXIMATIONS 


************************ e***.*,.***********#**************************************************************************************** 


THE FOLLOWING POLYNOMIAL, GIXI, CONTAINS ALL THE ROOTS OF PIX1 WHICH HAVE MULTIPLICITY 3 


GI3 1 = 0. tOOOOOOOOOOOOOOOD 01 ♦ 0, OOOODOO 0000000 OOD 00 I 
g ( i ' I = 0.99999998 53 705541D 00 ♦ -0.20000000171626320 01 l 
Gil 1 = 0. 30000000025333350 01 ♦ -0.30000000317915 14D 01 I 


ROOTS OF GIXI 


INITIAL APPROXIMATION 


Exhibit 6c 24 



"R09T.I 
10 DT I 


ROOTS 


ROOT! 
roo r f 


; i 1 = - o. 91999^f99999B58TO TOO ♦ -IV 1 00000000000001)20 01 I • - ' O.*«296m'I5S^6Z7^0- OO ♦ . 0.1 2940952844381 B 70 00 I 

2 1 = 0.14629304614932610-07 ♦ 0.30000000171626340 01 I SOLVED BY DIRECT METHOD 


OF PI X I 


MULTIPLICITIES 


INITIAL APPROXIMATION 


It * ~0 • 9999999999998 5 B 6D 00 + - 0. 1O00OOD0OOO0OOD2D 01 1 
21 = 0.1462 9304569634420— 07 ♦ 0. 300000001 71 62634D 01 [ 


3 0.4B29629U56562T9D 00 4 0 . 129409528443 81 B7D 00 I 

3 NO INITIAL APPROXIMATIONS 


Exhibit 6o24o 


Roots Are: -2,33, .003 (2), i (2) , 1.5i (2), 

— 1.5i (2) 3i (3), -1-i (3) 


00 

o 



REPEATED USE OF THE GREATEST COMMON DIVISOR AND MULLERS METHOD TO EXTRACT ROOTS AND MULT1PVICI TIES OF POLYNOMIALS 
POLYNOMIAL NUMBER 3 


NUMBER OF INITIAL APPROXIMATIONS 
MAXIMUM NUMBER OF ITERATIONS. 

TEST FOR EERO IN SUBROUTINE SCO. 
TEST FOR CONVERGENCE. 

TEST FOR ZERO IN SUBROUTINE QUAD. 
RADIUS TO START SEARCH. 

RADIUS TO END SEARCH. 


GIVEN. 0 
200 
0. 10D-02 
0. 100-09 
0. 100-J9 
0.000 OD 
0.000 00 


THE DEGREE OF PIXI IS 6 THE COEFFICIENTS ARE 


P<9 J « O.IOOOOOOOOOOOOOOOD 

pie i * -0.50000000000000010 

P ( 7 J • -0. 51 750090000000010 
PI 6 > = 0. 1 572 5000 OOOCOOOOD 

PI 5 > = 0. 30 750000 000000 00 D 

PI* I = -0. *9525000000000000 
PI 3 > = — 0 . 585 75 000 00000 00 1 0 
PI2 1 = O.ieiOOOGOOOOOOOOOD 
Pll > ■ 0 . 1 5 800000 00 000000 D 


01 ♦ 0.00000000000000000 00 I 

01 + -0.11500000000000000 02 1 

02 + 0. *3000D0000000001D 02 I 

03 * o.i**fezsoooooot>ooao 03 1 

03 + -0.34750000000000000 03 I 
03 ♦ —0 .*9*67500000 OOOOOD 03 I 
03 + 0. *2*750000000000 ID 03 I 

03 ♦ 0.4*20000000000001D 03 ! 

03 t 0.60000000000000010 Ol I 


3 

% 


*•** «*»*••»* ******************************** »**••*****•***»**» »•**»•* •*•** »»**♦** *'**••****•**«'•«■**■»•**** •«** *****•»•**•*• ******* 

NQRDOTS OF MULTIPLICITY 1 

******************** *************************************************************************************************************** 

THE FOLLOWING POLYNOMIAL, G( X 1 , CONTAINS ALL THE ROOTS OF P1X) WHICH HAVE MULTIPLICITY 2 

GI2 1 = O.IOOOOOOOOOOOOOOOD 01 * 0.00000000000000000 00 l ■ ■ 

511 | B -0.99999999999464980 00 ♦ -0.19999999999984680 01 1 

ROOTS OF G I X I INITIAL APPROXIMATION 


ROOT I 11 = 0.99999999999464980 00 + 0. 1 9v9095°‘»9996469D 01 r 0.48296291156562790 00 4 0.12940952 8443 818 70 00 I 

Exhibit 6,25. 


co 



ROOTS OF PIX1 


MULTIPLICITIES 


INITIAL APPROXIMATION 


ROOT ( II * 0. 99999999999464980 00 ♦ 0.19999999999964680 01 I 2 0.48296291156562790 00 ♦ 0.1 2940952 B443 81 BTO OO I 

* *4*4 ************** A ** 4* **** ***** ** ***** * *** ****** ** ** * *** ** ********** ****** **** A A ************* •••****•*** ****** ** *************** 

THE FOLLOWING POLYNOMIAL. G(XI, CONTAINS ALL THE ROOTS OF P(X) WHICH HAVE MULTIPLICITY 3 

G(3 > * o. locoooooooonooooo 01 » O.OOOOOOOODOOOOOOOO 00 I 

GI2 I = —0.10000000000025390 01 ♦ -0.25000000000016290 01 I 

Gil I = -0. 30000000000032960 01 * -0.10000000000004210 01 I 

ROOTS OF G4*l INITIAL APPROX! MATI ON 

ROOT! II - -0. 999999999999992B0 00 + 0 . 4999999999999T590 00 I 0.48296291156562790 00 * 0.12940952844381870 00 I 

ROOT 1 21 » 0. 20000000000025320 01 ♦ 0. 20000000000016530 01 I SOLVED 9Y DIRECT METHOD 

IN THE ATTEMPT TO IMPROVE ACCURACY, fiODTI 21 * 0.20000000000025320 01 ♦ 0. 2000000000001 653 □ 01 I 

oid not converge after 200 iterations 

THE PRESENT APPROXIMATION IS 0.20019999742533260 01 ♦ 0. 2001 9999742 52448D 01 I 

ROOTS OF P<X! MULTIPLICITIES INITIAL APPROXIMATION 

ROOT ( II = -0.99999999999999300 00 ♦ 0.49999999999997590 00 I 3 0.48296291156562790 00 0.12940952844381870 00 I 

NOT ALL ROOTS OF THE ABOVE POLYNOMIALS. WERE FOUND 

Exhibit 6.25. Roots Are: 2+2i (3), l+2i (2), -l+„5i (3) 


oo 

ho 



REPEATED USE OF THE GREATEST COMMON DIVISOR AND MULLERS METHOD TO EXTRACT ROOTS AMD MULTIPLICITIES OF POLYNOMIALS 
POLYNOMIAL NUMBER A 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 0 
MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR ZERO IN SUBROUTINE GCD. 0-100-02 
TEST FOP. CONVERGENCE. 0.100-09 
TEST FOR ZERO IN SUBROUTINE QUAD . 0.10D-19 
RADIUS TO START SEARCH. 0-000 00 
RADIUS TO END SEARCH. O.DOO 00 


THE DEGREE OF PIX) IS 12 THE COEFFICIENTS ARE 


PI 13 1 = 
P( 1 2 1 = 
PI 11 1 =■ 
PUD I = 
Ptv I = 
PIS > = 
PI 7 I = 
PIG I = 

IMS I • 
PI* I * 
PI 3 I * 
PI2 I « 
Pill = 


.0.10000000000000000 01 + 
-O.IZOOOOOOOOOOOOOOD 02 ♦ 
0- 720000000000000IO 02 * 
-0.20000000000000000 03 ♦ 
,0.78000000000000000 03 ♦ 
-0. 16320000000000000 04 ♦ 
C. 262 400 CO 00000 000 D 04 ♦ 
-0.32&4000000000000D 04 ♦ 
0 . 3120 000 000 0000 OOD 04 * 
-0.22400000000000000 04 * 
0.11520000000000000 04 ♦ 
—0.3 B400 000 OOOC 0000 D 03 ♦ 
0. 640D000000000001D 02 + 


O.OOOOOOOOOOOOOOOOD 00 
-O.OCOOODOODODOOOOOD OO 
0. OOODOOOOOOOODDOOD 00 
-O.OOOOOQOOOOOOOOOOO 00 
0 ,00000000 0000000 DD 00 
- 0.00000000000000000 00 
O.OOOOOOOOOOOOOOOOD 00 
- 0.00000000000000000 00 
O.OOOOOOOOOOODOOOOD 00 
-O.OOOOOOOOOOOOOOOOD 00 
0.00000000000000000 00 
-O.OOOOOOOOOOOOOOOOD 00 
O.OOOOOOOOOOOOOOOOD 00 


I 

I 

I 

I 

I 




************ ************** **+***»********»«*»****•♦*******•***•******•***•»***•******•*****♦*♦*************•****•******•******•*♦** 

NO ROOTS OF MULTIPLICITY 1 - 

**%••*#***#**********************■*****************•********«****•********!'********!***********.*•********•**•****•****••**** •*****•*• 

NO ROOTS. OF MULTIPLICITY .2 


Exhibit 6.26 



' 4 *« *4 ** 4 4 4444 4 444*44 4444 44 44 44 44*44 4 4444*4444 4 4 444444 4444*44 444444444*444*4*4'44 4*4*444*44*4**444 44 44A44*** *444*4 4* 44 *4**44 4*4444 44* 


NO ROOTS Of MOLT I PL I C [TV 3 


49944444999499 4 4 9*44 44 44 *4 44 *449444**9 4444 4 444 4 44444444444 44 44444 4444 4 444 444444 444*444444444444444444444 444* **4***9**4**4***4*##4»* 


NO ROOTS OF MULTIPLICITY 4 


4 *94 4 4 944494 44 94 *4* 449 4* 44 49 944944 44 9944 94 9449 44**9*44 49449 99 449 *9*4 4 *44* *4* 4* 99*4**49 4*4 94994**49*4****4*9* 4* **4***** 9*949*4499*44 


NO ROOTS OF MULTIPLICITY 5 


9 9449 9* 94 4 44*9 99*44494 44 44 9444 949949 99 4*9 9**4 9*499 9*4*9*44494 4494 4***4 949 444*9*4 4*99444** 9999*44* 4449*499*99949944 4*44999*999*4*944 


THE FOLLOW [NO POLYNOMIAL, GUI, CONTAINS ALL THE ROOTS OF P|X> HHICH HAVE MULTIPLICITY 6 


GI3 I = 0 . I OOOOOOOOO 000 O00D 01 ♦ 0 . 000 OOOOOOOOOOOOOD 00 I 
GI2 I = -0.20000000000000660 01 ♦ -0 .OOOOOOOOOOOOOOOOD 00 I 
Gil I * 0.20000000000000C7D 01 4 0. OOOOOOOOOOOOOOOOD 00 I 


ROOTS OF G(XI 


ROOT ( 1J * 0.10000000000000330 01 * 0. 9999999999999707D 00 I 
ROOT I 21 : 0 . 100000000000003 30 01 * -0.99999999999997070 00 I 


ROOTS OF PI XI 

ROOT! II * 0. I 000000000000033D Cl ♦ 0.99999999999997070 00 I 
ROOT I 21 « 0 -TO 00000 000 0000 330 01 ♦ -0.99999999999997070 00 l 

V ; ■ .. .. 

Exhibit 6 o 26c Roots Are: 


INITIAL APPROXIMATION 

0.4829629 1 1 56562790 00 * 0.12940952044381870 00 I 

SOLVED BY DIRECT METHOD 

MULTIPLICITIES INITIAL APPROX IM A TI ON 

6 0.48296291 1 56562 79D 00 * 0. 1 2940952 8443 8IH7D 00 I 

6 NO INITIAL APPROXIMATIONS 

1+1 ( 6 ), 1-1 ( 6 ) 
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APPENDIX A 


SPECIAL FEATURES OF NEWTON’S AND MULLER’S PROGRAMS 

Several special features have been provided 'in each program as an 
aid to the user and to improve accuracy of the results. These are 
explained and illustrated below. * 

1. Generating Approximations 

If the user does not have initial approximations available, sub- 

til 

routine GENAPP can systematically generate, for an N degree poly- 
nomial, N initial approximations of increasing magnitude , beginning 
with the magnitude specified by XSTART. If XSTART is 0., XSTART is 
automatically initialized to 0.5 to avoid the approximation 0. + Q.i. 
The approximations are generated according to the formula: 

X K = (XSTART + 0.5K) (Cos g + i Sin B) 

where 

e= l2 +K !’ K = 

To accomplish this, the user defined the number of ' initial approxima- 
tions to be read (NIAP) on the control card to be zero (0) or these 


*These illustrations are representative of Newton's method in 
double precision. The control cards for Muller’s method are similarly 
prepared. 
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columns (7-8) may be left blank. If XSTART is left blank, it is inter- 
preted as 0. 

For example, a portion of a control card, which generates initial 
approximations beginning at the origin for a seventh degree polynomial 
is shown in Example A.l. 


I Variable Name 


p— Card Columns 


1 2 

l 


| 

7 8 


6 7 

4 0 

| 

7 7 

2 8 

■ 

i 


l 

N 

i 

N 

I 

A 

P 


XSTART 

1 



i 

_il 


WE 

i 






n 

□ 


J — Example 

Example A. 1 


The approximations are generated in a spiral configuration as illustrated 
in Figure A.l* Exhibit 6.1 is an example of output resulting from 
generated approximations. 

Example A. 2 shows a portion of a. control card which generated 
initial approximations beginning at a magnitude of 25.0 for a sixth 
degree polynomial. 
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1 

1 

■ 


7 8 


6 7 

4 0 

| 

7 7 

2 8 

r 

7 

0 



N 


N 

I 

A 

P 


XS TART 

l 




rr 

■ 

m 




2.5D+01 

u 


■ 

■ 


Example A. 2 


Note that if the approximations are generated beginning at the 
origin, the order in which the roots are found will probably be of 
increasing magnitude. Roots obtained in this way are usually more 
accurate . 

2. Altering Approximations 

If an initial approximation, X^ , does not produce convergence to 
a zero within the maximum number of iterations, it is systematically 
altered a maximum of five times until convergence is possibly obtained 
according to the following formulas: 

If the number of the alteration is odd: (j = 1,3) 

= )X 0 | (Cos 8 + i Sin 8) where 

-i Im x o n 

3 = Tan + K - ; K = 1 if j =1, 2 if j = 3. 

If the number of the alteration is even: (j = 0,2,4) 















89 


Each altered approximation is then taken as a starting approximation. 

Each initial or altered approximation which does not produce convergence 
is printed as in Exhibit A.l. If none of the .six' starting approximations 
produce convergence, the next initial approximation .is taken, and the 
process repeated. The six approximations are spaced 60 degrees apart 
on a circle of radius jx^j centered at the origin as illustrated in 
Figure A. 2. 

3. Searching the Complex Plane 

By use of initial approximations and the altering technique, any 
region of the complex plane in the form of an annulus centered at the 
origin can be searched for roots. This procedure can be accomplished 
in two ways . 

The first way. is more versatile but requires.. more' effort on the 
part of the user. Specifically selected initial .approximations can be 
used to define particular regions to be searched... .For example, if the 
roots of a particular polynomial are known to have magnitudes between 
20 and 40, an annulus of inner radius 20 and outer radius 40 could be 
searched by using the initial approximations 20.. + i, 23. + i, 26. + i, 
29. + i, 32. + i, 35. 4- i , 38. + i, 40. + 1. 

By generating initial approximations internally,, the program can 
search an annulus centered at the origin of inner radius XSTART and 
outer radius XEND. Values for XSTART and XEND are supplied on the 
control card by the user. Example A. 3 shows a portion of a control card 
to search the above annulus of inner radius 20.0 and outer radius 40.0. 
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1 2 


4 5 


7 8 


1 — 

4 0 


7 7 

2 8 


8 

o m 

N 

0 

P 

0 

L 

Y 


N 


N 

I 

A 

P 


XSTART 


XEND 



1 


7 




2.0D+01 


4.00+01 




Example A„ 3 


Note that since not less than N initial approximations can be 
generated at one time, the outer radius of the annulus actually 
searched may be greater than XEND but not greater -than XEND + .5N. 

Example A. 4 shows a control card to search a circle of radius 15. 


1 2 


4 5 


7 8 


6 7 

4 0 


7 7 

2 8 


8 

0 

N 

0 

P 

0 

L 

Y 


N 


N 

I 

A 

P 


XSTART 


XEND 



2 


7 






1.5D+01 


— 


Example A. 4 


Figure A. 3 shows the distribution of initial and altered approxima- 
tions for an annulus of width 2 and inner radius a. 
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for the two remaining roots. These are indicated by the words "Solved 
By Direct Method" in the initial approximation column.' If only a poly- 
nomial of degree 1 is to be solved, the solution is found directly as 
(X - C) = 0 implies X - C. 
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6. Missing Roots 
th 

If not all N roots of an N degree polynomial -are' found, the 
coefficients of the remaining deflated polynomial are .printed under, 
the heading "Coefficients of Deflated Polynomial For Which No Zeros 
Were Found." The user may then work with this polynomial in an attempt 
to find the remaining roots. The coefficient of the highest degree 
term will be printed first (Exhibit A. 2) . 

7. Miscellaneous 

By using various combinations of values for NXAP, XSTART, and 
XEND, the user has several options available as illustrated below. 

Example A. 5 shows the control card for a seventh degree polynomial. 
Three initial approximations are supplied by the user'.' At most three 
distinct roots will be found and the remaining deflated polynomial will 
be printed (Exhibit A. 2) . 



Example A. 5 














93 


Note that if several roots are known to the user, they may be 

’’divided . out” of the original polynomial by using this -procedure. 

Example A. 6 indicates that 2 initial approximations are supplied by 
th 

the user to a 7 degree polynomial. After these approximations are 
used the circle of radius 15 will be searched for the remaining roots. 



1 

■ 


7 8 


6 7 

4 0 

1 

7 7 

2 8 


8 

0 

N 

■ 


| 




■ 


1 

I 

0 

I 


y 

N 



1 



I 

P 

1 

N 


I 


XSTART 

■ 

XEND 


■ 

0 

1 


■ 

A 



■ 



1 

L 

I 


1 

P 



I 



1 

Y 

1 


1 




1 


1 

1 

H 

■ 

7 

_ 

2 




1.5D+01 


□ 


Example A. 6 


By defining XSTART between 0. and 15. an annulus instead of the 
circle will be searched (Exhibit A. 3). 
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Figure A',2, Altering Approximations 

















NEWTONS MFTHOD TO FIND ZEROS OF POLYNOMIALS 
POLYNOMIAL NUMBER 2 OF DEGREE 3 


THE COEFFICIENTS OF MX! ARE 

PI Jl • 0.1 OOOOOOOO OCQODDQ D 
PI 2 1 » 0.20000000000000000 
PI 31 « -D.IOODQOOOOOOOOOOOD 
PI A) •• -0.20000000000000000 


OI ♦ O. 0000000 QOODOOOOOD 00 I 
01 ♦ 0.00000000000000000 00 I 
01 * -D.OODDOOOOOOOODOOOD 00 I 
01 • —0.00000000000000000 00 I 


NUMBER of initial approximations given. 0 


MAXIMUM NUMBER OF ITERATIONS. 3 
TEST FOR CONVERGENCE. O.10D-O3 
TEST FOR MULTIPLICITIES. 0.100-01 
RADIUS TO START SEARCH. O.OCD DO 
RADIUS TO END SEARCH. D.OOD DO 


NO CONVERGENCE FDR THE FOLLOWING APPROXIMATIONS AFTER 


3 ITERATIONS. 


0.4829629115656279D 00 ♦ 
•0.4B29&2911S&5&2T90 00 ♦ 
0. 12960959300866860 00 ♦ 
0.1296096930B866S6D 00 ♦ 
0.3535534294161 4020 CD ♦ 
0.35355352941614020 00 ■» 

0. 7071067553 044346D OB ♦ 
0. TO7IOb75530*.63A6D 00 ♦ 
•0.25881912759833590 00 * 
0. 25681 912759833590 00 • 
0.965925B6102499680 DO ♦ 
0*96 592 586 102599680 DD ♦ 


0.1 2950952 B443838TD 00 I 
-0.1296 09 52B4438I6T0 00 I 
0.58296292103906550 00 I 
-0.50296292103906550 00 I 
0.35355335177050300 00 I 
—0.3S3S5335I77050300 00 I 

0.70710680706855950 00 I 
— 0. T071066D7D6645 95D 00 I 
0.96592580518537750 DO I 
-0.96 592580 5 1 65 3 7 75 0 OO I 
0.25861891556623570 00 I 
-0.25881891556623570 00 1 


INITIAL APPROXIMATION 
ALTERED APPROXIMATION 
ALTERED APPROXIMATION 
ALTERED APPROXIMATION 

altered approximation 

ALTERED APPROXIMATION 

INITIAL APPROXIMATION 
ALTERED APPROXIMATION 
ALTERED APPROXIMATION 
ALTERED APPROXIMATION 
ALTERED APPROXIMATION 
ALTERED APPROXIMATION 


0. 388 22 85 7926560560 00 * 
-0.3BB22B57926550560 00 ♦ 
-0. 106D66028B25862ID 01 ♦ 
0.10606602 8826662 ID 01 * 
—0.15588666778562*00 01 * 
O. 146BBBB677856260D 01 ♦ 


0. 16686867631171930 01 l 
-0.16688887631171930 01 I 
O. 1060660D55311209D 01 I 
-0.1060660055311209D 01 I 
— 0. 3 88223 79 7463 55P2D DO I 
0.38822879746355020 00 I 


INITIAL APPROXIMATION 

altered approximation 

altered APPROXIMATION 
ALTERED APPROXIMATION 
ALTERED APPROXIMATION 
ALTEREO APPROXIMATION 


COEFFICIENTS OF DEPUTED POLYNOMIAL FOR WHICH NO ZEROS WERE FOUND 


oi n 
01 21 
Dl 3) 
Dt 41 


O.IOOOOOOODDCOOOOOO 01 ♦ 
0.20000000000000DDD 01 «• 
-O.IOOOOOODOOOOOOOOD 01 • 
— 0.20000 00 QGOQCDQDOO 01 ♦ 


O.OOOOOOOOOOOOOQOOD 00 I 
0. OOOODOOOOOODDDDDD DD I 
-0.00000000000000000 00 I 
- 0.00000000000000000 00 1 


Exhibit A.!'. 



NEWTONS METHOD TO FIND ZEROS OF POLYNOMIALS 
POLTKONl AL NUMBER 1 OF DEGRFE 7 


T HE COEFFICIENTS OF PIXI ABE 


PC 

II 

PI 

21 

PC 

31 

PC 

4} 

PC 

51 

PI 

61 

PC 

T) 

PC 

81 


O.IOOOOOOOOOOOOOOOD 01 ♦ 
-O-lOODOOOODOeOOODDD 01 * 
-0.59000000COCOOC01D 02 ♦ 
o.I9sooocooocoocood 05 ♦ 
O.TODDOOOOOOOODOC1D 07 ♦ 
-D.1&2400OOOOCDOCODD 04 • 

C.1922000000000COOD 04 ♦ 

0-15960000000000000 04 * 


0.00000000000000000 00 I 
O. 1 1000000000000500 02 I 
-0-29000000000000000 02 I 
-0. 1 6 900000000000000 05 I 
0.72300000000000000 03 I 
-0.49600000000000010 03 I 
-C.IB32QOOOOOOOOOOOO 04 J 
0* 16 92000000000000D 04 I 


NUMBER OF INITIAL APPROXIMATIONS GIVEN. 3 
MAXIMUM NyMBfA OF ITERATIONS. 200 

TEST fob CONVERGENCE. 0.100-09 

TEST FOR MUITIPLICITIES. G.10D-0I 

RADIUS TO £V«R» SEARCH. O.OOD OO 

RADIUS TO END SEARCH. 0.000 00 


BEFORE THE ATTEMPT TO IN PROVE ACCURACY. TuE ZEROS Of Fill ARE 


ROOTS OF KIRI 


•MULTIPLICITIES 


INITIAL APPROXIMATION 


ROOT I II » -0.29994949444999970 01 * -0. 300000000000000 ZD 01 I 
BOOT I 21 • 0.20000000000000000 01 4 0.20000000000000000 01 I 
ROOT ( S» - -0.49944449999999620 50 ♦ - 0.3 494 9 99 999 999 944D 01 I 


AFTER Th£ A T TEN FT TO I UPHOVE ACCURATE* Tut ZEROS OF Fill ARE 


I -0. JSOOOOOOODOOOOOOO 01 * -0.35000000000000000 01 I 
1 0. 250000000 OOOOOOOD 01 ♦ O.Z 500000 0000000000 01 I 
1 -0.15000000000000000 01 * -0.450000000000000 ID 01 1 


ROOTS OF FI ■> 


MULTIPLICITIES 


INITIAL APPROXIMATION 


ROTTE II - -0.299999999999999*3 
RODTI 21 » Q. 20000000000050005 
ROOT I 31 - -0. 999999 99999999T4D 


01 * —0-3000000 000000001 D 01 I 
01 ♦ C. 2000000000 OOOOOOD 01 -I 
00 ♦ -0.39999999999999960 01 I 


1 — 0- 3 50 OOOCOO OOOOOOOD 
1 0.2500000000000000D 
1 -O.1500OODCOOCO0OOOD 


01 ♦ -0.35000000000000000 01 I 
01 * 0.250OCO0O0DC0O000D 01 I 
01 * -0.45000000000000010 01 I 


COEFFICIENTS OF DEFLATED POLVNONIAL FO* HHICM NO ZEROS MERE FOUND 

DC II » O.IOOOOOOOOOOOOOOOD 01 « 0.00000000000000000 OO I 
01 21 • -0.29999999999999930 01 * 0.60000000000000050 01 I 
01 31 • -0-20000000000000050 02 * -0.1*999999999949990 02 I 
Dt 4 1 - 0*4l 000000000000030 02 4 -C. 2200000 OC 00 COOOSD 02 1 
□ | 5| m O.23DDOOO0OQCOOOO3C 02 4 0.41000000000000090 02 t 


Exhibit A«2« Roots Are: -1 *- 4i, -2 


3i, -3 - 3i, -1 - i, 2 + 2i, 4 - i, 2 - i. 


VO 

00 



MEHTONS METHOD TO FIND 2 EROS OF POLYNOMIALS 
POLYNOMIAL NUMBER 1 OF DEGREE 7 


THE COEFFICIENTS OF PIXJ ARE 


PI 

11 


O.IOOOOOOOOOODOOOOD 

PI 

21 


-0. 1 OOOOOOOOODOOOOOO 

PI 

31 


-0.59OODO0OOOOODDO1D 

PI 

41 


0.19500000000C00300 

PI 

51 


C.7000000000C000010 

Pt 

6 1 


-0. 16240000000000000 

PI 

71 


0 . 1922000000000000 D 

PI 

81 


0.1 5960000000000000 


01 • O.ODOOOOOODDOOCOOOD 00 I 

01 ♦ O.UOODOOOOCOOCDOOD 02 1 

02 ♦ -O.29G0OOODODOOOOOOD 02 1 

03 ♦ -O.169O0COOCOOCOOOOD 03 I 
02 ♦ O.723OODDODO0OODO0D 03 1 

04 ♦ -0.b960000000000001D 03 I 

0* * -0. 16320000000000000 0* I 
04 * 0.16920DDDD00000Q0D 04 1 


number of initial approximations given. 2 

MAXIMUM NUMBER OF ITERATIONS. 200 
TEST FOR CONVERGENCE. 0.100-09 
TEST FOR KBIT IPL3CITIES. 0.100-01 
RADIUS TO START SEARCH. O.TOO 01 
RADIUS TO END SEARCH. 0.15D 02 


BEFORE THE ATTEMPT TO IMPROVE ACCURACY, THE ZEROS OF PI* I ARE 


ROOTS OF P|XI 


MULTIPLICITIES 


INITIAL APPROXIMATION 


ROOT I II 
ROOT l 21 
ROOT! 31 
ROOM 41 
ROOT f SI 
ROOT! bl 
ROOT I 7 1 


•0.2999999999999997D 01 

o.zoooooocoooooooao 01 

O.AOOOOrOOOOOOOOOlD >1 
C. J 999999999999997D 01 
-0.9999 9999999799980 CD 
■0.99999999999999760 00 
■0.20000000.00000DD43 01 


♦ — 0 • 300000000000000 2D Dt I 

♦ 0.20000000000000000 01 1 
♦ *- 0.10000000000000010 01 1 

♦ «»0 .9999999 999 9 9 99 TBO 00 1 

♦ -D.100000000DD00004D 01 1 

♦ -0.39999999999999950 01 I 

♦ -O.SODOOODDDOOOOaOlD 01 I 


1 

1 

1 

1 

1 

I 

1 


-0. 35000000000000000 01 ♦ 
■ 0.25DOOOOOOOOOOOOOD 01 * 
0.67b! 4SO?bl910T9ID 01 ♦ 
0 ■ 5 303 300664784 T60D 01 ♦ 
0.207055 18B94I5497D 01 * 
SDLVEO BV DIRECT METHOD 
SOLVED BY DIRECT METHOD 


-0. 35000000000000000 0| I 
0.25000000000000000 01 I 
0.1 B1 I 71339 62 1 3442 D 01 I 
0.530330105301 J447D 01 I 
0. 772740673662 3032D 01 T 


AFTER THE ATTEMPT TO IMPROVE ACCURACY, THE ZEROS OF PIX1 ARE 


ROOTS OF Ft* I 


multiplicities 


initial approximation 


ROOK I) 
ROOT I 2) 
ROOM 3 J 
ROOT < 4 1 
ROOT I 51 
ROOT I 61 
ROOT I 71 


0. 2999999999999996D Dl ♦ 
0. 2 OODOOOCOOPOOOOOD 01 * 
0.40COCDOC00000001D 01 ♦ 
O.PODOOOOOOOOCOOOOD 0 1 « 
•D. 99999999999999970 00 ♦ 
■0. 99999999999999R20 00 ♦ 
0. 2DCCPDD0000000030 01 ♦ 


-O.30COOOOCO0DOODD1D 01 I 
0.20000000000000000 01 I 
-O.IOOOOOOOODDOODOIO 01 I 
— 0 . 999 99999999 9999S0 00 I 
-C.1CCOOOOOODOOOCOOO 01 | 

-0.4O0000D0C0O000GOD ol | 

-D.300000000000000TO 01 I 


1 

I 

1 

1 

1 

1 

1 


—0 .35000000000000000 01 « 
0.25000000000000000 01 ♦ 
0-67614807619187910 01 ♦ 
0.53033D0664784T60D 01 ♦ 
0.20705518894154970 01 ♦ 
SOLVED BY DIRECT METHOD 
SOLVED BY DIRECT method 


-0. J50000CODOOOQOOOO 01 I 
0.25000000000000000 01 I 
0. IBl 17333982 134620 01 I 
0.53033010530134470 01 1 
0.77274067366250320 01 1 


Exhibit A. 3. 


Roots Are: 


-1 -*4i, -2 


3i, -3 - 3i, -1 - i, 2 + 2i t 4 - i,. 2 - i 



APPENDIX B 


NEWTON’S METHOD 
I. Use of the Program 

A double precision FORTRAN IV program using Newton’s method is 
presented here. Flow charts for this program are given in Figure B.6 
while Table B. VIII gives a FORTRAN IV listing of this program. Single 
precision variables are listed in some of the tables. The single 
precision variables are used in the flow charts and the corresponding 
double precision variables can be obtained from the appropriate tables 
The program is designed to solve polynomials of degree 25 or less 
Both the coefficient of the highest degree term and the' constant 
coefficient should be non-zero. In order to solve polynomials of 
degree N, where N > 25 , certain array dimensions must be changed. 

These are listed in Table B.I for the main program and subprograms in 
double precision. 
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TABLE B. I 

PROGRAM CHANGES FOR SOLVING POLYNOMIALS 
OF DEGREE GREATER THAN 25 
BY NEWTON'S METHOD 


Double Precision 


Main Program 

RA(N+1), VA(N+1) 

RB (N+l) , VB(N+1) 
RC(N+1), VC (N+l). 
RD(N+1), VD (N+l) 
RCOEF(N+l), VCOEF(N+l) 
MULT (N) 

RXZERO(N), VXZERO(N) 
RX(N), VX(N) 

RXINIT(N) , VXINIT(N) 


Subroutine HORNER 

RA(N+1) , VA(N+1) 

RB (N+l) , VB (N+l) 

RC (N+l) , VC (N+l) 

Subroutine BETTER 

RXZERO(N), VXZERO(N) 

RX (N) , VX(N) 

RA(N+1) , VA(N+1) 

RCOEF (N+l) , VCOEF (N+l) 
RC (N+l) , VC (N+l) 

RB (N+l) , VB (N+l) 

Subroutine GENAPP 

APPR(N), APPI(N) 


Subroutine QUAD 

UA(N+1), VA(N+1) 
UROOT(N) , VROOT(N) 
MULTI (N) 


Table B. II lists the system functions used in the program of Newton's 


method. In the table "d". denotes a double precision variable name. 
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TABLE B.II 

SYSTEM FUNCTIONS USED IN NEWTON ’ S METHOD 


Double Precision 


DABS (d) 

DCOS(d) 

DSIN(d) 

DATAN2(d 1 ,d 2 ) 

DSQRT(d) 


- obtain absolute value 

- obtain cosine of angle 

- obtain sine of angle 

- arctangent of d^/d 2 

- square root 


2. Input Data for Newton's Method 

The input data for Newton's method is grouped .into polynomial data 
sets. Each polynomial data set consists of the -data for one and only 
one polynomial. As many polynomials as the user desires may be solved 
by placing the polynomial data sets one behind the other. Each poly- 
nomial data set , consists of three kinds of information placed in the 
following order: 

1. Control information. 

2. Coefficients of the polynomial. 

3. Initial approximations. These may be omitted as 
described in Appendix A, § 1. 

An end card follows the entire collection of data sets. It indicates 
that there is no more data to follow and terminates execution of the 
program. This information is displayed in Figure B.l and described 
below. For the double precision data, the D-type specification should 
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be used. All data should be right justified. The recommendations 
given in Table B.III are those found to give best results on the IBM 
360/50 computer which has a 32 bit word. 


Control Information 

The control card is the first card of the polynomial data set and 
contains the information given in Table B.III, See Figure B.2. 


TABLE B.III 

CONTROL DATA FOR NEWTON'S METHOD 


Variable Name 

Card Columns 

Description 

N0P0LY 

c.c. 1-2 

Number of-.:. the polynomial. 
Integer . 

Right justified. 

N 

c.c. 4-5 

Degree -of the polynomial. 
Integer. 

Right .justified. 

NIAP 

c.c. 7-8 

Number of initial approxi- 
mations to 'be read . 

Integer.: . 

If no approximations are 
given, this should be left 
blank. 

MAX 

c. c. 19-21 

Maximum .number of iterations 
Integer . . 

Right -justified. 

200 is recommended. 

EPSCNV 

c.c. 30-35 

Convergence requirement. 


Double precision. 
l.D-10 is recommended. 



104 


TABLE B.III (Continued) 


Variable Name Card Columns 


EPSQ 


c. c. 37-42 


EPSMUL 


c.c. 44-49 


XSTART 


c. c. 64-70 


XEND 


c.c. 72-78 


KCHECK 


c.c. 80 


Description * 

Tolerance check for zero 
(0) in .subroutine QUAD. 
Double precision. 

Right -justify. 

1.D-2Q is .recommended. 


Multiplicity .requirement . 

Double p rec-ision;;. 

Right .justify. 
l.D-02 is- .recommended. 

Magnitude at which to begin 
generating initial approxi- 
mations. 

Double precision. 

Right justify. 

This is a special feature 
of the program and may be 
omitted. 

Magnitude at -which to end 
the generating of initial 
approximations . 

Double precision. 

Right justify. 

This is a special feature 
of the program and may be 
omitted. 

This should be left blank. 


Coefficients of the Polynomial 

j-U ■ 

The coefficient cards follow the control card.. For an N L degree 
polynomial, N-fl coefficients must be entered one per card. ! The 
coefficient of the highest degree term is entered first. For example, 
if the polynomial + 3X^ + 2X.+ 5 were to be solved, the order in 
which the coefficients would be entered is: 1, 3, 0, 0, 2, 5. Each 


/ 
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coefficient is entered, one per card, as described in Table B. IV and 
illustrated in Figure B.3. 


TABLE B.IV 

COEFFICIENT DATA FOR NEWTON’S METHOD 


Variable Name Card Columns Description 

RA (A in single precision) c,c. 1-30 Real part of complex 

coefficient. 

Double precision. 

Right justify. 

If none, leave blank or 
enter G.ODOO. 


VA (A in single precision) c.,c. 31-60 Imaginary part of complex 

coefficient . 

Double precision* 

Right justify. 

If none, leave blank or 
enter O.ODOG. 


Initial Approximations 

The initial approximation cards follow the set of coefficient cards. 
The number of initial approximations read must be the number specified 
on the control card and are entered, one per card, as given in Table 
B.V and illustrated in Figure B.4. 
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TABLE B.V 

INITIAL APPROXIMATION DATA FOR NEWTON’S METHOD 


Variable Name 

Card Columns 

Description 

RXZERO 

(XZERO in single 
precision) 

c.c. 1-30 

Real part of. complex number. 
Double precision. 

Right justify . 

If none, leave blank or 
enter O.ODOO. 

VXZERO 

(XZERO in single 
precision) 

c.c. 31-60 

Imaginary part of complex 
number. 

Double precision. 

Right justify. 

If none, leave blank or 
enter 0.0D00. 


End Card 

The end card is the last card of the input data to the program. It 
indicates that there is no more data to be read. When this card is 
read, program execution is terminated. This card is described in 
Table B.VI and illustrated in Figure B.5. 

TABLE B.VI 

DATA TO END EXECUTION OF NEWTON'S METHOD 

Card Columns Description 

c.c. 80 Must contain the number 1, 

Integer . 


Variable Name 
KCHECK 



107 


3. Variables Used in Newton's Method 

The definitions of the major variables used in Newton's method are 
given in Table B.VII. The symbols used to indicate type are: 

R - real variable 
I - integer variable 
C - complex variable 
D - double precision 
L - logical variable 
A - alphanumeric variable 

When two variables are listed, the one on the left is the real part of 
the corresponding single precision complex variable; the one on the right 
is the imaginary part. The symbols used to indicate disposition are: 

E - entered 
R - returned 

ECR - entered, changed, and returned 
C - variable in common 

4. Description of Program Output. 

The output from Newton’s method programs consist of the following 
info rmation . 

The number and degree of the polynomial are printed in the heading 
(Exhibit 6.1). 

The coefficients are printed under the heading n THE COEFFICIENTS 
OF P(X) ARE. 11 The coefficient of the highest degree term is listed 
first (Exhibit 6.1). 
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As an aid to ensure the control information is correct, the number 
of initial approximations given, maximum number of iterations, test for 
convergence, test for multiplicities, radius to start search, and radius 
to end search are printed as read from the control card (Exhibit 6.1). 

The zeros found before and after the attempt to improve accuracy 
are printed. See Appendix A, § 4 for further explanation (Exhibit 6.1). 

If not all zeros of the polynomial are found, the coefficients of 
the remaining unsolved polynomial will be printed, with coefficient of 
highest degree term first, under the heading "COEFFICIENTS OF DEFLATED 
POLYNOMIAL FOR WHICH NO ZEROS WERE FOUND." See Appendix A, 5 6. This 
is illustrated in Exhibit A. 2. 

The multiplicity of each zero is given. under the title "MULTIPLI- 
CITIES" (Exhibit , 6. 1) . 

The initial approximation producing convergence to a root is 
printed to the right of the corresponding root and headed by "INITIAL 
APPROXIMATION." The initial approximations may be those supplied by the 
user, or generated by the program, or a combination of both (Exhibit 
A. 3). See Appendix A, § 1 and § 2 for discussion of approximations. 

The message "SOLVED BY DIRECT METHOD" indicates that the corresponding 
root or roots was obtained by Subroutine QUAD. See Appendix A, § 5. 

If an approximation does not produce convergence within the maxi- 
mum number of iterations, it is printed under the heading "NO CONVER- 
GENCE FOR THE FOLLOWING APPROXIMATIONS AFTER XXX ITERATIONS," XXX is 
replaced by the maximum number of iterations. The type of the approxi- 
mation, that is, initial approximation or altered approximations is 
given (Exhibit A.l). See Appendix A, § 1 and § 2 for discussion of 
approximations. 
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5. Informative and Error Messages 

The output may contain informative or error messages. These are 
intended as an aid to the user and are described as follows : 

"IN THE ATTEMPT TO IMPROVE ACCURACY, R00T(X) = YYY DID NOT CONVERGE 
THE PRESENT APPROXIMATION AFTER ZZZ ITERATIONS IS PRINTED BELOW," X is 
the number of the zero, YYY is the value of the zero before the attempt 
jto improve accuracy , ZZZ is the maximum number of iterations. This 
message indicates that a zero found before attempting to improve 
accuracy did not converge sufficiently when being used as an initial 
approximation on the full (undeflated) polynomial. The current approxi- 
mation is printed in the list of improved zeros. In many cases, this 
failure to converge is a result of an ill-conditioned polynomial and 
this current approximation of the root may be better than its approxi- 
mation before the attempt to improve accuracy. In most cases, the 
polynomial from which this root was first extracted had fewer multiple 
roots, due to deflations, than the original polynomial. 

"THE VALUE OF THE DERIVATIVE AT X0 = XXX IS ZERO." 

This message is printed as a result of the value of the derivative 
of the original polynomial at an approximation, XXX, being zero (0). 

It occurred in the attempt to improve the accuracy of a zero. The 
previous message is then printed. 
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-Variable Name 


Card Columns 


00 

12 ; 

300( 

345< 

300 

578 

0111111111 

9012345678 

122 

901 

2222222 2 
23456789 

333333 
0123 45 f 

3 333444 c 
5789012. 

i444444 

3456789 

55555555556666 

01234567890123 

6666667' 

4567890: 

7777777778 

L234567890 

N 

0 

p 

0 

-L 

Y 

N 

N 

I 

A 

P 


MAX 


EPS CNV 

ESPQ 

EPSMUI 


XSTART 

K 

C 

XEND H 
E 
C 
K 

1 

7 

7 


200 


l.D-10 

l.D-20 

l.D-02 


1.0D+01 

5.0D+02 


Example 

Figure B„2 S Control Card for Newton’s Method 
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Figure B. 4, Initial Approximation Card for Newton's Method 
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Figure B = 5 o End Card for Newton's Method 
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TABLE B. VII 

VARIABLES USED IN NEWTON’S METHOD 


Single Precision Double Precision Disposition 

Variable Type Variable Type of Argument 


Description 


NDPOLY I 

N 1 

NIAP I 

MAX I 

EPSCNV R 

EPSMUL R 

EPSQ R 

XSTART R 

XEND R 

KCHECK I 

NA I 

A C 

NDEF I 

L I 

ITER I 

NROOT I 

IALTER I 

I TIME I 

K I 

ND I 


NOPOLY 

T 

N 

I 

NIAP 

I 

MAX 

’ I: 

EPSCNV 

' D 

EPSMUL 

D 

EPSQ 

: D' 

XSTART 

D 

XEND 

D 

KCHECK 

I 

NA 

X 

RA.VA 

♦ D 

NDEF 

I] 

L 

i Ii 

ITER 

; i 

NROOT 

; i ; 

IALTER 

; 1 

IT1ME 

I 

K 

I 

ND 

I 


Main Program 

Number of the polynomial 
Degree of the polynomial 

Number of initial approximations to be read 
Maximum number of iterations to be performed 
Tolerance check for convergence 
Tolerance check for multiplicities 
Tolerance check for zero in subroutine QUAD 
Magnitude from which to begin the search for zeros 
Magnitude to end the search for zeros 
Program Control. When KCHECK ■* 1, program will 
terminate execution. 

Number of coefficients or original polynomial 
Array containing the coefficients of original 
polynomial P(X) 

Degree of current deflated polynomial 
Counter for number of initial approximations used 
Counter for number of iterations 
Counter for number of roots found (counting 
multiplicities) 

Counter for number of alterations of each initial 
approximation 
Program control 

Counter for number of distinct roots found 
Program control & number of coefficient of deflated 
polynomial for which no zeros were found 
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TABLE B„ VII (Continued) 


Single Precision 

Double Precision 

Disposition 

Variable 

-Type 

Variable 

Type 

of Argument 

XO 

c 

RXO , VXO 

D . 


COEF 

c 

RCOEF, VCOEF 

D 


DPX 

c 

RDPX , VDPX 

D 


PX 

c 

RPX, VPX 

D 


XZERO 

c 

RXZERO, 

VXZERO 

; d 


XNEW 

c 

RXNEW , VXNEW 

! D 


KANS 

I 

KANS 

I 


MULT 

I . 

MULT 

I 


X 

c 

RX,VX 

D 


XINIT 

c 

RXINIT, 

VXINIT 

D 


NUM 

I 

NUM 

, I 


B 

c 

RB,VB 

D 


I ROOT 

I 

IROOT 

! 

' I 


D 

c 

RD,VD 

D 


101 

I 

101 

I 


102 

I 

102 

I 


C 

c 

RC,VC 

D 


EPSCHK 

R 

EPSCHK 

D 



Description 

Current approximation (3^) to root 
Working array containing coefficients of current 
deflated polynomial 
Derivative of P(X) at some value X 
Value of P(X) at some point X 
Array containing the initial approximations 

New approximation obtained from old approximation 

(X n ) by Newton's Algorithm 
KANS « 1 implies convergence, KANS * 0 implies no 
convergence 

Array containing the number of multiplicities of each 
root 

Array containing the zeros of P(X) 

Array containing the initial or altered approximations 
which produced convergence to each root 
Number of coefficients of current deflated polynomial 
Array containing the coefficients of newly deflated 
polynomial 

Number of distinct roots found by Newton’s method, i.e. 

not solved for directly by subroutine QUAD 
Array containing the coefficients of deflated polynomial 
for which no zeros were found 
Unit number of input device 
Unit number of. output device 

Array containing sequence of values leading to the , 
derivative 

Current tolerance for checking convergence or 
multiplicity 
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TABLE B. yil i (Continued) 


Single Precision Double Precision 

Variable Type Variable Type 


Disposition 
of Argument 


Subroutine HORNER 


Description 


A 

c 

RA,VA 

D 

B 

c 

RB,VB 

D 

NDEF ' 

I 

NDEF 

I 

NITM 

I 

NUM 

I 

XO 

c 

RXO ,VXO 

D 


PX 

C 

RPX,VPX 

D 

DPX 

C 

RDPX, VDPX 

D 

C 

C 

RC,VC 

D 


E Array of coefficients of polynomial 

R Array of coefficients of deflated polynomial 

E Degree of polynomial 

Number of coefficients of polynomial 
E Point 0^) at which to evaluate the polynomial and its 

derivative. Also current approximation (X n +i) used 
to deflate the polynomial 
R Value of polynomial at X n 

R Value of the derivative of polynomial at 3^ 

R Array of containing sequence of values leading to the 

derivative 


Subroutine NEWTON 


PX 

C 

RPX,VPX 

D 

E 

DPX 

c 

RJDPX,VDPX 

d j 

E 

XO 

c 

RX0,VX0 

D I 

E 

XNEW 

c 

RXNEW , VXNEW 

d ; 

R 


EPS LON 

R 

EPS 

' D 

C 

PX 

C 

RPX, VPX 

D 

E 

DPX 

C 

RDPX,VDPX 

D 

E 

XO 

C 

RXO ,VX0 

D 

E 

102 

I 

102 

I 

C 

KANS 

I 

KANS 

I 

R 


Value of polynomial at Xjj 

Derivative of polynomial at X n 

Current approximation (X n ) to root 

New approximation (X ,) to root 

n+1 

Subroutine CHECK 

Tolerance for convergence or multiplicity check 
Value of P(X) at X n 
Derivative of P(X) at ^ 

Current approximations (X n+ j) to root 
Unit number of output device 

KANS - 1 implies convergence, KANS = 0 implies no 
convergence 
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TABLE B, VII (Continued) 


Single Precision Double Precision 

Variable Type Variable Type 


102 I 

XZERO C 

X C 

A C 

COEF C 

NA I 

xo c 

DPX C 

PX c 

KANS I 

ITER I 

XNEW C 

NN I 

c c 

K I 

N I 

B C 

MAX I 

EPSCHK R 


APP C 

NAPP I 


102 

I 

RXZERO, 

VXZERO 

D 

RX,VX 1 

D 

RA.VA 

D 

RC0EF,VC0EF 

D 

NA 

I 

RXO ,VX0 

D 

RDPX , VDPX 

D 

RPX,VPX 

D 

KANS 

I 

ITER 

» I 

RXNEW , VXNEW 

D 

NN 

I 

RC ,VC 

D 

K 

I 

N 

I 

RB,VB 

D ; 

MAX 

I; 

EPS 

■ 

i D; 


APPRjAPPI D 

NAPP I 


Disposition 

of Argument Description 

Subroutine- BETTER 


Unit number of output device 
Array of approximations 

Array of roots 

Coefficients of original (undeflated) polynomial, P(X) 
Working array for coefficients of polynomial 
Number of coefficients of original polynomial 
Current approximation (X n ) to root 
Derivative of P(X) at X n 
Value of P(X) at X n 

KANS = 1 implies convergence; KANS = 0 implies no 
convergence 

Counter for number of iterations 
New approximation (X n +i) to root 
Degree of polynomial 
E Array containing the sequence of values leading to the 

derivative 

E Number of distinct roots of P(X) found 

E Degree of polynomial P(X) 

E Array of coefficients of deflated polynomial 

C Maximum number of iterations permitted 

C Tolerance for checking convergence 

Subroutine GENAPP 

R Array containing initial approximations 

E Number of initial approximations to be generated 


C 

E 

ECR 

E 

E 

E 



TABLE B s VIX (Continued) 


Single Precision 


Variable Type 

XSTART R 

BETA R 

U R 

V R 


XOLD C 

WALTER I 

ITIME I 

MAX I 

Y R 

X R 

R R 

BETA R 

XOLDR R 

XOLDI R 

102 I 


A C 

NA I 

ROOT C 

NROOT I 


Double Precision 

Variable 

Type 

XSTART 

•D 

BETA 

. D 

APPR(I) 

; D 

APPI(I) 

: d 


XOLDR, XOLDI 

D 

NALTER 

I 

ITIME 

I 

MAX 

I 

XOLDI 

i) 

XOLDR 

D 

R 

D 

BETA 

D 

XOLDR 

d| 

XOLDI 

D; 

102 

f 


UA , VA 

D 

NA 

I 

UROOT,VROOT 

D 

NROOT 

I 


Disposition 

of Argument Description 

ECR Magnitude at which to begin generating approximations; 

also magnitude of the approximation being generated 
Argument of the complex approximation being generated 
Real part of complex approximation 
Imaginary part, of complex approximation 

Subroutine ALTER 

Old approximation to be altered to new approximation 
Number of alterations performed on an initial 
approximation 
Program control 

Maximum number of iterations permitted 
Imaginary part of original initial approximation 
(unaltered) , 

Real part of original unaltered initial approximation 
Magnitude of original unaltered initial approximation 
Argument of new approximation 
Real part of new approximation 
Imaginary part of new approximation 
Unit number of output device 

Subroutine QUAD 

E Coefficients of polynomial to be solved 

E Degree of polynomial 

ECR Array of roots of P(X) (original polynomial) 

ECR Number of distinct roots of P(X) (the original 

polynomial) 


ECR 

ECR 
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TABLE B* VII (Continued) 


Single Precision Double Precision Disposition 

Variable Type Variable Type of Argument 


Description 


MULTI . I MULTI I 

EPST R EPST. o 

DISC C UDISC,VDISC D 


UX. VX D 

UY, VY . d 


Array containing multiplicities of each root 

Tolerance check for the number zero 

Value of the discriminate (b2 - 4ac) of Quadratic 

Subroutine COMSQT ■_ 

Complex number for which the square root is desired 
Square root of the complex number 
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Figure B* 6- Flow Charts for Newton's Method 
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0001 


0002 


0003 

0004 

0005 

0006 

000 ? 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 


TABLE B. VIII 

PROGRAM FOR NEWTON * S METHOD 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


********* *************************** *******************‘*******•*********‘* 4 ** 
* 

* DOUBLE PRECISION PROGRAM FOR NEWTON'S METHOD 

* 

* 

* NEWTONS METHOD EXTRACTS THE ZEROS AND THEIR MULTIPLICITIES OF A 

* POLYNOMIAL OF MAXIMUM DEGREE 25 BY COMPUTING A SEQUENCE OF APPROX- 

* IMATIONS CONVERGING TO A ZERO OF THE POLYNOMIAL USING THE ITERATION 

* FORMULA 

* XCNM) * XINI-PUIND/PMXIN) ). 

* 

*** *************************************************** ********************* 


DOUBLE PRECISION RA, V A .RXZ ERO, VX ZERO. RB, VB, RCOEF» VCOEF » RX, VX.RXI N! 
lTpVXlNIT,RC » VC »RD t VD» RPX , VPX* RDPX »VDPX » RXNEW t VXNEW *RXO* VXQ» EPSCHK , 
2EPSCNV »EPSQ»EPSMUL,XSTART,XENQ*ABPX»ABDPX 
DIMENSION RA (26) ,VA(26 ) , RB 1 26 I , V8(26) »RC ( 26) » VC1 26 ) , ROI 26) ,V0(26), 
1RCOEFI 26) .VCOEF! 261 .MULTI 25) .RXZER0( 251 , VXZERDI 25 ) , RX< 2 5) ,VX(25) ,R 
2XINIT(25)»VXINIT (251 
COMMON EPSCHK, MAX, 102 
101*5 
102 = 6 

l READ! 101, 1000) NOPOLY, N,NI AP,MAX , EPSCNV »EP5Q» EPSMUL, XST ART , XEND, KC 
1H6CK 

IFCKCHECK.EQ.il STOP 


NA«N* 1 

READ! 101, 1010) (RA(I)fVA(I)fI*l,NA) 
WRITE( I02.103DI NOPOLY, N 
WRITE (102, 1040) (I ,RA( I) , VA< I) , I =1 ,NA) 
WRITE! 102,2060) 

WR1TEI 102,2000) N1AP 
WRITE! 102,20101 MAX 
WRITE! 102,20251 EPSCNV 
WRITE! 102,2030) EPSMUL 
WRITEII02, 20401 XST ART 
WRITE (102 ,20501 XENO 


IF( NIAP.NE.OI GO TO 3 


N I AP=N 

CALL GENAPP! RXZERQ»VXZ£R0»NIAP,XSTART ) . 

GO TO 4 

3 READ! 101 , 1020) tRXZEROCI ),VXZERO( I I, I = 1»N!AP) 

4 NOEF*N 
L= 1 

IT ER = 0 
NR00T=0 
I ROOT=0 
I T I ME*0 
ND=0 

IALTER*0 

K=0 

RX0*RX2ER0(L) 

VXO=VXZERO( L 1 
00 5 1=1 *NA 
RCOEPt I )=RA( I) 

5 VCOEF! l)*VA( 1) 

10 CALL HORNER! RCQEF * VCOEF , RXO, VXO, NQEF, R8, VB,RC,VC,RPX,VPX, ROPX, VOPX 
1) 

ABPX=DSQRT(RPX?RPX»VPX4VPX) 

ABDPX=DSQRTIRDPX*RDPX*VDPX*VDPX ) 


112 

116 


no 

132 


152 

154 

160 


164 

168 

180 

161 

188 

190 

191 
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0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 
0067 
006B 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
OOB1 
0082 

0083 

0084 

0085 

0086 
0087 
0038 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 


TABLE B. VIII (Continued) 


IF (ABDPX..NE.O.QI GO TO 20 
IF( ABPX.EQ.O.O) GO TO 70 
GO TO 110 

20 CALL NEWTON I RPX »VPX . ROPX * VDPX t RX0» VXQ» RXNEW.VXNEM ) 

ITER=IT£R+1 

RXO=RXNEW 

VXO-VKNEW 

£PSCHK=£PSCNV 

CALL CHECK |RPX r VPX,ROPX,VDPX,RXO»VXO,KAN$) 

IFIKANS.EO.il GO TO 70 
IF! ITER. GE. MAX) GO TO 40 
GO TO 10 

40 CALL ALTER(RXZEROIL) .VXZEROIL), 1 ALTER, IT1MEI 
IFU ALTER. GT .5) GO TO 110 
RXQ=RX ZERO! L ) 

VXO*VXZE R01 L) 

1 TER=0 
GO TO 10 
60 NO=NDEF*l 
DO 65 J-l.ND 
RO l *RCOEF ( J I 
65 V0< J)=VCGEFt J) 

GO TO 140 
70 NR00T=NR00T+1 
K=K+l 
MULT < K 1 = 1 
RX4KI =RXO 
VX ( K ) = VXD 

RXJNIT(K) =RX ZEROI L ) 

VXINIT<K)=VXZ£ROIL I 

CALL HORNER tftCOEF.VCOEF,RXO,VXO,NDEF i R3. VB.RC.VC.RPX.VPX* RDPX.VOPX 
l) 

80 IFINROOT.GE.NI GO TO 147 
NDEF=NDEF-l 
NUM=N0EF*1 
DO 10 5 l = 1 » NUM 
RCOEFt I ) = R6( 1 1 
105 VCOEFI 11= V0 <11 

CALL HORNERIRCOEF ,VCQEFiRXOtVXO,NOEFtRB,V8iRC,VC,RPX,VPX,ROPX,VOPX 
1 » 

ABPX=DSQRT|RPX*RPX*VPX*VPX1 
ABOPX=OSORT ( ROPX*ROP X*-VDPX*VDPX ) 

1 F I ABDPX.NE.O.O) GO TO 107 
JF( ABPX.E0.0.0) GO TO 130 
GO TO 110 
107 CONTINUE 

6PSC.HK = E PSHUL 

CALI CHECK4RPX, VPX, ROPXt VDP X t RXO, VX0»KAN$ ) 

1F( KANS.EQ. 1 I GO TO 130 
110 IF1NOEF.GT.2I GO TO 113 
I ROOT=K 

CALL QUAD! RCOEF , VCOEF »N0EF »RX f VX t K »MULT f EPSQI 
GO TO 150 

113 IFIL.LT.NIAP) GO TO 115 
IF< XENO.EO.O.O) GO TO 60 
IF1XSTART.GT . X END ) GO TO 60 
NIAP=N 

CALL GENAPP(RXZERO,VXZERO f NIAP,XSTARTl 


200 

204 

205 


194 

206 


244 

248 


266 
272 
2 76 
280 
281 
268 
289 


294 

296 

297 


300 
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TABLE B. VIII (Continued) 


0097 

0090 

0099 

0100 
0101 
0102 
0103 
0109 

0105 

0106 
0107 

oioa 

0109 

0110 
0111 

0112 

0113 

0119 

0115 

0116 
Oil 7 
0118 

0119 

0120 
0121 
0122 
0123 
0129 

0125 

0126 
0127 
0126 


0129 

0130 

0131 

0132 

0133 
0139 

0135 

0136 

0137 

0138 

0139 

0190 

0191 
01 92 
0193 
0199 
0195 


1=0 

115 L=L ♦ l 

RXO=RX ZERQfL 1 
VXO=VXZERO!l) 

1 TER=0 
I ALTER=0 
GO TO 10 

130 MULT!KI»MUI_nKI + t 
NR00T=NR00TH 
GO TO 80 

190 IF1K.EQ.01 GO TO 160 
197 1 RQOT=K 
150 WRITE! 102,10251 
WRITE! 102,10501 

WRITE! 102,10601 II.RXlI) .VX! I) , MULT ! 1 1 , RX 1 NIT { 1 » , VX IN IT III , 1= 1, IRO 
10T I 

KKK= i ROOT *1 

IF! IRQOT.tr. Kl WRITE! 102, 1062) ( I , R X«H , VX ( I) , MUL T 111 , I =XKK , X ) 
EPSCHX-EPSCNV 

CALL BETTER! K.RX ZERO, VX ZERO, RX , VX , NA,RA, VA, RCOEF , VCOEF , N,RC , VC ,RB , 
IVS) 

160 1F1K.EQ.0) GO TO 170 
WRITE! 102 ,10651 
WRITE! 102, 1050) 

WRITE! 102,10 60) !IiRXtl),VX!I 1 , MULT ( I 1 , R X IN t T ! I 1 , VXl N 1 T ! 1) ,1 = 1, IRQ 
10T) 

KKK=IR00T*l 

IF! IROOT.LT. K) WRITE! 102, 10621 ! T , RX ( 1 1 , VXl 1 1 ,HULTll > , 1 =KKK ,K| 

170 IFINO.EQ.O) GO TO 1 
WRITE! 102,10701 

WRITE! 102,1075) (J,RO( Jl , VD| Jl , J=1 ,NDI 
GO TO 1 

1000 FORMAT! 31 12, IX 1 , 9X , 1 3 , 8X, 3 I 06.0, IX 1 , 13X, 2 1 07.0, IX 1 , 1 1 1 
1010 FORMAT 1 2D30. 01 

1030 FORMAT! 1 HI , 8X , 43HNEWTQNS METHOD TO FIND ZEROS OF P0LYNQMIAt.S/9Xt 18 
1HPQLYN0MIAL NUMBER ,I2,11H OF DEGREE , I 2, //// IX, 2 8HTHE COEFFICIENT 
2S OF P1X1 ARE/) 

1040 FORMAT (3X,2HP{ , 12, 4HI „ ,023.16,3H * *023.16,2H I) 

1020 FORMAT I 2D30 .01 

1025 FORMAT ! ///1X,61HBEFQRE THE ATTEMPT TO IMPROVE ACCURACY, THE ZEROS 
lOf P(X1 ARE) 

1050 FORMAT ! / //2X , l 3HROOT S OF P! X 1 , 52X , 14HMULT I PL 1C I T I £S , l 7X , 2 1H INI T I AL 
l APPROXIMATION//) 

1060 FORMAT <3X,5HROOTI, 12, 4H) = ,D23.l6,JH ,023. 16, 2H T , 7X, 1 2 , 7X , 023. 

116, 3H » ,023.16, 2H I I 

1062 FORMAT (3X,5HRQ0T( ,12,4H) * ,023.16,3H * ,023.16,2H I * 7X , 1 2 , 8X , 23HS 
1OLVE0 8 Y 01RECT METHOD) 

1065 F0RMAT1///1X.61HAFTER THE ATTEMPT TO IMPROVE ACCURACY, THE ZEROS 
IDF P(X) ARE) 

1070 FORMAT 1///IX,65HC0EFFICI£NTS OF DEFLATED POLYNOMIAL FOR WHICH NO Z 
l EROS WERE FOUND/ ) 

1075 FORMAT 13X.2HO! • 12, 4HI = ,023.1fa,3H ♦ ,D23.16,2H I) 

2000 FORMAT I IX,41HNUMBER OF INITIAL APPROXIMATIONS GIVEN. ,12) 

2010 FORMAT! I X,29HMAX1MUM NUMBER OF I TERA TIQNS . , l IX , I 3 1 
2020 F0RMATI1X,21HT€ST FOR CONVERGENCE., 13X, 09. 2) 

2030 FORMAT! IX, 24HTEST FOR MULT IPLIC 1 T l ES. , 10X , 09 .2 ) 

2040 FORMAT! IX, 23HRAOJUS TO START SEARCH. , UX ,09.21 
2050 FORMAT ! IX , 21 HRAD IUS TO END SE ARCH. , 13X ,09 . 2 1 
2060 FORMAT !//lX) 

END 


312 

313 
316 
320 
324 
328 
332 
336 
338 


396 

444 


450 
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TABLE B. VIII (Continued) 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 


SUBROUTINE GEN APP ! AP PR , APP I ,NAPP * XST ART) 

C ********************** *********** ******************************************* 

C * * 

C * SUBROUTINE GENAPP GENERATES N INITIAL APPROXIMATIONS, WHERE N IS THE * 

C * DEGREE OF THE ORIGINAL POLYNOMIAL. * 

C * * 

C **************************************************************************** 

DOUBLE PRECISION APPR, APP l , XSTART,OUMMY,BE TA 
DIMENSION APPRI25) ,APPI!25t 
COMMON DUMMY, MAX , 102 
1FIXSTART.EQ.D .0 I XSTART-0.5 
BETA-O. 261 7994 
DO 10 l-l.NAPP 
APPRII 1= XST ART* DC OS (BETA) 

APP II I ) = XSTART*DS INI BETA) 

BETA = BETA»-0. 5235988 
10 XSTART»XSTART*0.5 
RETURN 
END 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 
002 4 

0025 

0026 " 


SUBROUTINE ALT ER ! XOLDR ,XOLDl , NALTER , I TI ME ) 

C **************************************************************************** 
C * * 

C * SUBROUTINE ALTER ALTERS THE INITIAL APPROXIMATIONS WHICH PRODUCE NO * 

C * CONVERGENCE TO A ZERO. THIS IS DONE A MAXIMUM OF 5 TIMES FOR EACH ROOT. * 

C * * 

C ****************************************************************** ********** 

DOUBLE PRECISION XOL OR , XQLDI , DUMMY, AB XOLD , BE TA 
COMMON DUMMY , MAX, 102 
I FI ITIHE.NE.O) GO TO 5 
IT I ME =1 

WRITE! 102,1010) MAX 
5 IF (NALTER. EQ.O ) GO TO 10 
WRITE! IQ2, 1000 ) XOLDR.XOLOI 
GO TO 20 

10 ABXOLD=DSQRT!XOLDR*XOLDR+XDLOI*XOLOI ) 

BETA-DATA N2IX0LDI, XOLDR) 

WRITE! 102,1020) XOLDR.XOLOI 
20 NALTER-N ALTER* 1 

IFINALTER.GT.5l RETURN 
GO TO 130, 40, 30,40,30), NALTER 
30 XOLOR--XGLOR 
XOLDI=-XGLOI 
GO TO 50 

40 BETA=BETA*1 .0471976 

XOLOR-A8XOLD*OCOS! BETA) 

XOLOI- ABXOLD*D$ IN! BETA) 

50 RETURN 

1000 F0RMAT!IX»D23.16,3H * ,023.16,2H I, 10X,21H ALTERED APPROXIMATION) 

1010 FORMAT ! // / IX ,54HNO CONVERGENCE FOR THE FOLLOWING APPROXIMATIONS AF 
ITER , I 3 1 12H ITERATIONS.//) 

1020 FORMAT ( / 1 X ( 0 23. 16, 3H * ,023.16,2H I , 10X ,2 1HIN I T I AL APPROXIMATION) 

END 
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TABLE 3, VIII (Continued) 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 
0009 
00L0 

oon 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 
0029 
00 30 

0031 

0032 

0033 
00 34 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 


SUBROUTINE OUAO ( U A,V A,NA , UftOOT , VROOT f NRQOT ,MUL T I . EPST I ' 

C **************************«>****** t ***************** ************** *********** 

c * 

C * SUBROUTINE OUAO SOLVES D1RECTLV FOR THE ZEROS ANO THEIR MULTIPLICITIES 

C * OF EITHER A QUADRATIC POLYNOMIAL OR A LINEAR FACTOR* SOLUTION OF THE 

C « QUADRATIC IS DONE USING THE QUADRATIC FORMULA. 

C * 

c ***♦**#***<■ «■*****■ *********♦*****»>*******************#**** ********* ********* 

DOUBLE PRECISION UA, VA,URQOT , VROOT * BBB» UAAA, VAAA.UO I SC , VDI SC »UOUNM 
IY» VDUMMY * RQUMNY • SDUMMYtE PST.UBBB. VBBB 
DIMENSION UA(26I»VA<261, URCJOT (251* VROOT! 25 1 » MULT I (251 
IFINA.EQ.2l GO TO 7 
IFINA.EQ.lt GO TO 5 
UROOTINRoami-O.O 
VROOT ( NRQOT *1 ) = 0. 0 
MULTI (NRQOTM) *1 
NR00T= NROOT M 
GO TO 50 

5 88B = UA I 1 ) *UAI 1 > + VA1 1 }*VAI 1 1 

UROOTI NROOT + 1 1 *> I -UAt 2 I *UA( 1 1 -VA {2)*VAtl))/BBB 
VROOT I NRQOT* l t=I-VAI2 l*UAI 1 1 *UAI 2 t*V A 1 1 1 1 / BB.B 
MULT 1 1 NRQOT *l) = l 
NROOT=NROOT*l 
GO TO 50 

7 U0ISC 3 (UAl21*UAI2t-VAI2t*VA(2l|-(4.04IUAI lt*UAl 3>-VA I 1 1 *VA ( 3 1 1 1 
VOI SC-C VA( 2 t«UA< 2)4UA|2 t*VA(2) |-(4.0*(VA< 1 l*UA(3l *UA| 1)*VAI 31 ) I 
BBB=DSQRTIUOISC*UDISC*VOISC*VDJSCJ 
If (OBB.LT.EPST I GO TO 10 
CALL COMSQT ( UOI SC» VDI SC.UOUMMY .VDUMMY) 

U886=-UA { 2 I +UDUMM Y 
VBBB=-VAl 2 )♦ VDUMMY 
RDUMMY=~UAC 2J-UQUMMY 
SDUMMY=-VA( 2 ) -VDUMMY 
UAAA=2.0*UAI It 
VAAA=2.0*VA( It 
BBB=UAAA*UAAA*VAAA*VAAA 

URQOT I NRQQT*1 1 = I UBBB*UAAA+VBBB*V AA A) / 88 B 
VRDDT INRODT* It"! VBBB*UAAA-UBBB*VAAA) /0B8 
UROOT ( NROOT + 2 ) = I R DUMMY*UA AA+SOUMNY *VA AAI /BB8 
VROOT { NROOT* 21=1 SQUMMY*UAAA-ROUMMY *VAAA1 / BB& 

MULTIINRaaT4-ll = I 
MULTI INR0QT*2t =1 
NROOT=NROQT* 2 
GQ TO 50 

10 UAAA=2.0*UA(lt 
VAAA>2.0*VA(lt 
BBB=UAAA*UAAA*VAAA*VAAA 

UR0QTINR00T + U>I-UAI2t*UAAA-VAI 2t*VAAAI/BBB 
VROOT INROOT* 1)=(-VAI 2 )*UAAA*UAI 2 t*VAAAI/BBB 
MULTI I NRQOT ♦ 1 1 =2 
NRQ0T=NR00T*1 
50 RETURN 
END 
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0001 


0002 

0003 

0004 

0005 

0006 
0007 

oooe 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 


TABLE B, VIII (Continued) 


SUBROUTINE COMSQTIUX .VX.UY.VY i 


C * * 

C * THIS SUBROUTINE COMPUTES THE SQUARE ROOT OF A COMPLEX NUMBER. * 

C * * 

C **#*%*******#**#***♦•*♦*******************************♦************ ********* 

DOUBLE PRECISION UX , VX.UY.VY, OUMNY.R, AAA, BBB 
R»OSQRT(UX*UX*VX*VX) 

AAA=0S0RT (DABS((R+UXI/2.01l 
BBB*DSQRTI0ABSHR~UX|/2.0)I 
IFIVX) 10.20,30 
10 UY* AAA 

VY»-l.0*BBB 
GO TO 100 

20 IF(UX) 40,50,60 
30 UY«AAA 
VY^BBB 
GO TO 100 
40 DUMMY=DABSl UX I 
UY*0.0 

VY=0SQRT ( OUMMY1 
GO TO 100 
50 UY=0.0 
VY«0.0 
GO TO 100 
60 DUMMY 1 DABS I UX1 
UY=0SQRT 1 DUMMY! 

VY=0.0 
100 RETURN 
ENO 
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TABLE B. VIII (Continued) 


00 D1 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
oou 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 


SUBROUTINE HORNER IRA. VA,RXO,VXO, NPEF,R«,V8, RC. VC. RPX,VPX,RDPX,VDPX 

C ***************** ******1 ********** ******************************************* 

c * * 

C * HORNER'S METHOD COMPUTES THE VALUE OF A POLYNOMIAL P<X» AT A POINT D AND * 

C * ITS DERIVATIVE AT D. SYNTHETIC DIVISION IS USED TO DEFLATE THE * 

C * POLYNOMIAL BY DIVIOING OUT THE FACTOR IX-DJ. * 

C * * 

c ********************************************************************** ♦♦♦♦** 
1» „ 

DOUBLE PRECISION VDP X ,RXO ,VXO, RB * VB.RCtVC .RPX.VPX »RDPX„ RA.VA 
DIMENSION RAI26)»VAI26)»R8I26I.VB(26l»RCI26I*VCI26l 


RBI 1 ) = RA( 1 1 516 

VBI 1 )=VA< 1 I 517 

NUM=NDEF * 1 520 

DO 10 1*2, NUM 524 

RBI I l=RAI II+IRBIl— 1 J*RXO— Vfll I-ll*VXO) 

10 VBm*VAIII + lVBII-l»*RXO*R6U-n*VXO) 

RPX=RBINUMJ 532 

VPX” VB I NUMI 533 

RCI 1 > = RB! 1 1 540 

VCI l)«VB< l) 541 

IFINDEF.LT.2J GO TO 25 

00 20 J*2 »NDEF 544 

RC< JJ”RBIJJ MRCIU-1 J*RXO-VCI J-L)*VXO) 

20 VCI Jf = VS I J)MVC(J-n*RXO*RCU-ll*VXOJ 
25 RDPX=RC I NDEF ) 

VDPX*VC ( NOEF I 553 

RETURN 572 

ENO 580 


\ 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 


SUBROUTINE NEKTON! RP X , VPX , ROPX , VDPX.RXO, VXQ .RXNEW, VXNEH I 600 

C **************************************************************************** 
C * * 

C * THIS SUBROUTINE CALCULATES A NEW APPROXIMATION FROM THE OLD APPROX- * 

C * I MAT 1 ON BY USING THE ITERATION FORMULA * 

C * X t N* 1 1 = XINI-PIXINH/P' IXINU. * 

C * * 

C **************************************************************************** 
OOUBLE PRECISION RPX .VPX ♦ ROPX fVDPX » RXOi VXOiR XNEW, VXNEW. ARG 
ODUBLE PRECISION ODD 
ARG=RDPX*RQPX*VOPX*VOPX 
DDD=DSQRT (ARG) 

IFIODO.EQ.O.OJ RETURN 
RXNEW=RX0-|1 RPX*RDPX+VPX*VDPXl/ARG) 

VXNEW*VXO-l I VPX *RDPX-RPX*VOPX ) /ARG) 

RETURN 616 

END 620 
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TABLE B. VIII (Continued) 


0001 


0002 

0003 

0004 

0005 

0006 
0007 

oooa 

0009 

0010 
001 1 
0012 
00 13 

0014 

0015 

0016 
0017 
0010 

0019 

0020 
0021 


SUBROUT I NE CHECK I RPX ,VPX ,RDPX , VOPX , RXO, VXO. KANS ) 

**************************************************************************** 
* 

* THIS SUBROUTINE CHECKS FOR CONVERGENCE OF THE SEQUENCE OF APPROX- 

* (NATIONS BY TESTING THE EXPRESSION 

* ABSOLUTE VALUE OF (P<X(NII/P*tX<NIN /ABSOLUTE VALUE OF X!N*i>. 

* WHEN IT IS AS SMALL AS DESIRED* CONVERGENCE IS OBTAINED. 


10 


25 


DOUBLE PRECISION RPX, VPX, ROPXt VDPX* RXQ*VX0 , ABSXO« ABSQUQ, RDUMMY* VOU 
1HMY.EPS 

DOUBLE PRECISION ARG 
DOUBLE PRECISION ODD 
COMMON EPS# MAX ,102 
A8SXO*DSQRT(RXO*RXO*VXO*VXO) 

IF( ABSXO.EQ.O. > GO TO 25 
ARG=ROPX*ROPX*VOPX*VOPX 
QDD=OSQRT ( ARG I 
I F I ODD .EO • 0 . 0) GO TO 25 
RDUMMY* ( RPX*RDPX*VPX*VOPXI /ARG 
VDUMMY=I VPX*ROPX-RPX*VOPX)/ARG 
A B SOUO= D SQR T ( RDUMMY* RDUMMY «■ VOUMMY* VDUHHV » 

IF I ABSOUO/ ABSXO.LT . £P S 1 GO TO 10 
KANS=0 
RETURN 
KANS* 1 
RETURN 
K ANS-0 
RETURN 
ENO 


7*9 

750 


760 

764 

768 

772 


Ho 
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TABLE B. VIII (Continued) 


0001 


SUBROUTINE SET TER ( K , RXZERO, VXZERO, RX, VX, NA »RA, VA,RCOEF , VCOEF, N, RC , 
IVCfRB.VBI 

C **************************************************************************** 


c * * 

C * SUBROUTINE BETTER ATTEMPTS TO IMPROVE THE ACCURACY OF THE ZEROS FOUND * 

C * BY USING THEM as INITIAL APPROXIMATIONS WITH NEWTON* S METHOD APPLIED TO * 

C * THE FULL, UNDEFLATED POLYNOMIAL. * 

C * * 


C **************************************************************************** 


0002 


DOUBLE PRECISION RXZ6RO , VX ZERO. RX, VX, RA ,VA .RCQEF , VCOEF, RC , VC , RB, V8 
l »RxO» VXO, RPX ,VPX,RDPX, VDPX,RXN£W, VXNEW, EPS 

B05 

0003 


DIMENSION RX2EROI25),VXZERO< 25>,RX(25I ,VX I 25 1 ,RA( 26 1 , VA1 26 I ,RCO£F4 
1261, VCOEF (26 >,RC(26> ,VC ( 26 I ,RB( 26 ) , VB ( 26) 


0004 


DOUBLE PRECISION ABPX,ABDPX 


0005 


COMMON EPS.MAX, 102 


0006 


DO 10 1=1, K 

812 

0007 


RXZERCK! ) * RX ( 1 1 

015 

0006 

10 

VXZEROII >=vxm 

816 

0009 


00 20 1=1 »NA 


0010 


RCOEFI 1 1 = ft A 1 1) 

824 

0011 

20 

VCO£F< 11-VAI I) 

025 

0012 


DO 50 J = 1 i K 

828 

0013 


RXO=RX ZEROl J ) 

832 

0014 


VXO=VXZERO( J 1 

833 

0015 


NN=N 

834 

0016 


1 TER=0 

836 

0017 

30 

CALL HORNER 1 RCOEF, VCOEF, RXO, VXO, NN.RB. VS »RC, VC, RPX, VPX.RDPX.VQPX) 


0018 


ABPX=QSQRT(RPX*RPX+VPX*VPX) 


0019 


ABDPX*DSQRT(RDPX*RDPX*VDPX*VDPX| 


0020 


1 F( AB0PX . NE .0 .0 1 GO TO 33 


0021 


IFt ABPX. EQ.0.0) GO TO 40 


0022 


GO TO 34 


0023 

33 

CALL NEWTON(RPX ,VPX,ROPX, VDPX.RXO, VXO* RXNEW, VXNEW 1 


0024 


ITERMTERU 

856 

0025 


RXO=RXNEW 

B60 

0026 


VXO= VXNEW 

861 

0027 


CALL CHECK (RPX, VPX,RDPX, VOPX, RXO, VXO, MANS) 


002 B 


IFlKANS.EQ.il GO TO 40 

844 

0029 


IF( ITER.GE. MAX I GO TO 35 


0030 


GO TO 30 

864 

0031 

34 

WRITEC 102,11121 RXO, VXO 


0032 

35 

WRITE 1 (02,1001 J ,RXZERO( J } ,VXZERO( J» 


0033 


WRITE 1 102,2001 MAX 


0034 

40 

RX ( J 1 = RXO 

870 

0035 


VX( J)=VXO 

871 

0036 

50 

CONTINUE 

072 

0037 


RETURN 

876 

003B 

1112 

FORMAT ( 1HQ»36HTHE VALUE OF THE DERIVATIVE AT XO * ,D23.16,3H ♦ , D2 


13 « 16, 2H l,10H 1$ ZERO.! 


0039 

100 

FORMAT (42HOIN THE ATTEMPT TO IMPROVE ACCURACY, ROOT(,I2,4HI = ,D23 
1.16, 3H * ,023. 16 ,2H I,16H DIO NOT CONVERGE.) 


0040 

200 

FORMAT (33H THE PRESENT APPROXIMATION AFTER ,I3,29H ITERATIONS IS P 



1RINTEO BELOW. I 
END 


0041 


880 



APPENDIX C 


HOLLER’S METHOD 
2 . Use of the Program 

A double precision FORTRAN IV program using Muller’s method is 
presented in this appendix. Flow charts for this program are given in 
Figure C.l while Table C.V gives a FORTRAN IV listing of this program. 
Single precision variables are listed in some of the tables. The 
single precision variables are used in the flow charts and the 
corresponding double precision variables can be obtained from the 
appropriate tables. 

The program is designed to solve polynomials of degree 25 or 
less. Both the coefficient of the highest degree term and the constant 
coefficient should be non-zero. In order to solve polynomials of 
degree N, where N > 25 , certain array dimensions must be changed. 

These are listed in Table C.l for the main program and subprograms in 
double precision. 
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TABLE C.I 

PROGRAM CHANGES FOR SOLVING POLYNOMIALS OF 
DEGREE GREATER THAN 25 
BY MULLER’S METHOD 


Double Precision 


Main Program 


UROOT(N) , VROOT (N) 
MULT(N) 

UAPP (N, 3) ,VAPP(N,3) 
UWORK (N+l) ,VW0RK(N+1) 
UB(N-KL) , VB (N+l) 
UA(N+1) ,VA(N+1) 

URAPP (N , 3) ,VRAPP (N,3) 


Subroutine BETTER 

UROOT (N) ,VROOT (N) 
UA(N+1) ,VA(N+1) 

UBAPP (N ,3) , VBAPP (N ,3) 
UB (N+l) , VB (N+l) 

UROOTS (N) , VROOTS (N) 
URAPP (N , 3) , VRAPP (N , 3) 
MULT (N) 


Subroutine GENAPP 

APPR(N,3) ,APPI(N,3) 

Subroutine HORNER 

UA(N+1) ,VA(N+1) 

UB (N+l) , VB (N+l) 


Subroutine QUAD 

UA(N+1) ,VA(N+1) 
UROOT (N) ,VROOT (N) 
MULTI (N) 


Table C.II lists the. system functions used in the program of 
Muller’s method. In the table ”d" denotes a double precision variable 


name. 
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TABLE C.II 

SYSTEM FUNCTIONS USED IN MULLER’S METHOD 


Double Precision 


DABS (d) 

DATAN2(d ,d 2 ) 

DSQRT(d) 

DCOS(d) 

DSIN(d) 

DSQRT(d) 


- obtain absolute value 

- arctangent of 

- square root 

- cosine of angle 

- sine of angle 

- square root 


2. Input Data for Muller's Method 

The input data for Muller's method is identical to the input data 
for Newton’s method as described in Appendix B, § 2 except for the 
variable names. The correspondence of input variable names is given 
in Table C.III. Only one (not three) initial approximation, X Q , is 
given for each root. The other two required by Muller’s method are 
constructed within the program and are .9X Q and I.IX^. 

3. Variables Used in Muller’s Method 

The definitions of the major variables used in Muller’s method are 
given in Table C.IV, For definitions of variables not listed in this 
table see the definitions of variables for the corresponding subroutine 
in Table B.VII. The notation and symbols used here are the same as 
for Table B.VII and are described in Appendix B, § 3. 
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TABLE C.III 

CORRESPONDENCE OF NEWTON’S AND MULLER’S 
INPUT DATA VARIABLES 


Newt on ' s Me tho d 

Control Card 


Muller ' s Me thod 


NOPOLY 

N 

NIAP 

MAX 

EPSCNV 

EPSQ 

EPSMUL 

XSTART 

XEND 

KCHECK 


NO POLY 
NP 

NAPP 

MAX 

EPS 

EPSQ 

EPSM 

XSTART 

XEND 

KCHECK 


Coefficient Card 


A (RA) 
A (VA) 


A (UA) 
A (VA). 


Initial Approximation Card 


XZERO (RXZERO) APP (UAPP) 

XZERO (VXZERO) APP (VAPP) 


End Card 


KCHECK 


KCHECK 


4. Description of Program Output 

The output from Muller’s method is the same as that for Newton’s 
method as described in Apptendix B, § 4. Only one initial approximation, 
Z, (not three) is printed for each root. It is either that supplied by 
the user or generated by the program. The other two approximations 


used were 0.9Z and 1.1Z, 
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5. Informative and Error Messages 

The output may contain informative messages printed as an aid to 
the user. These are: 

"NO ZEROS WERE FOUND FOR POLYNOMIAL NUMBER XX." 

XX is the number of the polynomial. This message is printed if no roots 
of the polynomial were found. 

"IN THE ATTEMPT TO IMPROVE ACCURACY, ROOT (X) = YYY 
DID NOT CONVERGE AFTER ZZZ ITERATIONS 
THE PRESENT APPROXIMATION IS AAA" 

X is the number of the root before the attempt to improve accuracy, YYY 
is the value of the root before attempt to improve accuracy, ZZZ is the 
maximum number of iterations, and AAA is the current approximation 
after the maximum number of iterations. This message has the same 
meaning as the corresponding message in Appendix B, § 5. 



TABLE C.. IV 


VARIABLES USED IN MULLER’S METHOD 


Single Precision 

Double Precision 

Variable 

Type 

Variable 


NP 

I 

NP 

T 

NROOT 

I 

NROOT 

I- 

NOMULT 

I 

NOMULT 

I 

ROOT 

C 

UROOT , VROOT 

D 

NAPP 

I 

NAPP 

T 

.L 

APP 

C 

UAPP , VAPP 

D 

WORK 

c 

UUORK , VWORK 

D 

B 

c 

UB,VB 

; D 

A '■ 

c 

UA,VA 

: D 

RAPP 

c 

URAPP ,VRAPP 

D 

XI 

c 

UX1,VX1 

D 

X2 

c 

UX2 , VX2 

* D 

X3 

c 

UX3 , VX3 

D 

PX1 

c 

UPX1,VPX1 

D 

PX2 

c 

UPX2,VPX2 

D 

PX3 

c 

UPX3 ,VPX3 

D 

X4 

c 

UX4 , VX4 

D 

PX4 

c 

UPX4 , VPX4 

D 

MULT 

I 

MULT 

I 

ITER 

I 

ITER 

I 

101 

X 

101 

I 

102 

I 

102 

,1 


Disposition 

of Argument Description 

Main Program 

Degree of polynomial P(X) 

Number of distinct roots found 

Number of roots (counting multiplicities) 

Array containing the roots 

Number of initial approximations to be read in 
Array of initial approximations 
Working array containing coefficients of current 
polynomial 

Array containing coefficients of deflated polynomial 
Array containing coefficients of original polynomial, 
PCX) 

Array of initial or altered approximations for which 
convergence was obtained 
One of three current approximations to a root 

One of three current approximations to a root 

One of three current approximations to a root 

Value of polynomial P(X) at XI 
Value of polynomial P(X) at X2 
Value of polynomial P(X) at X3 
Newest approximation CXj^) to root 
Value of polynomial P(X) at X4 

Array containing the multiplicities of each root found 
Counter for iterations 
Unit number of input device 
Unit number of output device 



TABLE CL IV. (Continued) 


Single Precision 

Double Precision 

Disposition 


Variable 

J yP e 

Variable 

T yp e 

of Argument 

Description ' 

EPSRT 

R 

EPSRT 

D 


Number used in subroutine BETTER to generate two 






approximations from the one given 

NOPOLY 

I 

NOPOLY 

I 


Number of the polynomial 

MAX 

I 

MAX 

T 


Maximum number of iterations 

EPS 

R 

EPS 

D 


Tolerance check for convergence 

EPSO 

R 

EPSO 

D 


Tolerance check for zero (0) 

EPSM 

R 

EPSM 

D 


Tolerance check for multiplicities 

KCHECK 

I 

KCHECK 

I 


Program control, KCHECK * 1 stops execution of program 

XSTART 

R 

XSTART 

D 


Magnitude at which to start generating initial 






approximations 

XEND 

R 

XEND 

D 


Magnitude at which to end generating initial : 






approximations 

NWORK 

I 

NWORK 

I 


Degree of current deflated polynomial whose coefficients 






- are in WORK 

ITIME 

I 

ITIME 

I 


Program control 

NALTER 

• I 

NALTER 

I 


Number of alterations which have been performed on an 






initial approximation 

LAPP 

I 

IAPP 

I 


Counter for number of initial approximations used 

CONV 

L 

CONV 

L 


When CONV is true, convergence has been obtained 

IROOT 

I 

IROOT 

I 


Number of distinct roots solved by Muller's method, i.e. 




\ 


not solved directly by subroutine QUAD 





Subroutine HORNER 

A 

C 

UA,VA 

■ !*> 

E 

Array of current polynomial coefficients (to be deflated 






or evaluated) 

NA 

I 

NA 

i 

E . 

Degree of polynomial to be deflated or. evaluated 

X 

c 

ux,vx 

D 

E 1' 

Approximation at which to evaluate or deflate the 


polynomial 



TABLE c. XV (Continued) 


Single Precision Double Precision Disposition 

Variable Type Variable Type of Argument 


Description 


B 

C 

UB , VB 

D 

R 

PX 

c 

UPX,VPX 

•D 

R 

NUM 

I 

NUM 

I 



i . 


X3 

C 

UX3,VX3 

b 1 ■ 

E 

X4 

C 

UX4,VX4 

\ i 

D i 

E 

CONV 

L 

CONV 

J 1 

L- 1 

i • 

p , 

R 

EPS 

R 

EPS 

C 

EPSO 

R 

EPSO 

■b ■; 

C 

DENOM 

R 

DENOM 

b 



MULT 

I 

MULT 

I 

ECR 

A 

C 

UA,VA 

:d. 

E 

NP 

I 

NP 

I 

E . 

ROOT 

C 

UR00T ,VR00T 

D 

ECR 

NR00T 

I 

NR00T 

I • 

ECR 

BAPP 

c 

UBAPP ,VBAPP 

D 

E 

IR00T 

I 

I ROOT 

I 

ECR 

ROOTS 

c 

UR00TS , V ROOTS D 


L 

I 

L 

I 


EPSRT 

R 

EPSRT 

D 

C 

ITER 

I 

ITER 

I 

C 


Array containing the coefficients of the deflated 
polynomial 

Value of the polynomial at X 

Number of coefficients of polynomial to be deflated 
Subroutine TEST 

Approximation to Root (old) (X^ 

New approximation to root (Xj^j) 

CONV * T true implies convergence has been obtained 

Tolerance for convergence test 

Tolerance check for zero (0) 

Magnitude of new approximation, (X ) 

n+1 

Subroutine BETTER 

Array of multiplicities of each root 

Array of coefficients of original undeflated polynomial 
Degree of original polynomial 
Array of roots 

Number of roots stored in root 

Array of initial approximations (old roots) 

Number of roots solved by the iterative process (Not 
QUAD) 

Temporary storage for new (better) roots 
Number of roots found by BETTER 
A small number used to generate two of the three 
approximations when given one 
Counter for. number of iterations 


-p* 



TABLE C. IV (Continued) 


Single Precision 

Double Precision 

Disposition 


Variable 

T yP e 

Variable 

Type 

of Argument 

Description 

B 

C 

UB,VB 


D 


Array containing coefficients of deflated polynomial 

XI 

c 

. UX1,VX1 


D 


One of three approximations to the root 

X2 

c 

UX2.VX2 


D 


One of three approximations to the root 

X3 

C 

UX3 ,VX3 


D 


One of three approximations to the root 

PX1 

c 

UPX1,VPX1 


D 


Value of polynomial (P(X)) at XI 

PX2 

c 

UPX2,VPX2 


D 


Value of polynomial (P(X)) at X2 

PX3 

c 

UPX3, VPX3 


D ■ 


Value of polynomial (P(X)) at X3 

CONV 

L 

CONV 


L 


CONV *= true implies convergence has been obtained 

X4 

C 

UX4 , VX4 

iD 


Newest approximation to root 

J 

I 

J 


I 


Program control - counts the number of roots used as 







initial approximations 

MAX 

' I 

MAX 


I . 

C 

Maximum number of iterations permitted 

102 i: 

I 

102 


I ' ■ 

C 

Unit number of output device 


- •' 




Subroutine ALTER 

XI - • 

c 

X1R.X1I . 


D v 

ECR 

One of tbe three approximations to be altered 

X2 : 

c 

X2R,X2I 


D 

ECR 

One of the three approximations to be altered 

X3 

c 

X3R,X3I 


D i 

ECR 

One of the three approximations to be altered 

X2R 

R 

X2R 


D 


Real part of complex approximation 

X2I ■ . 

R 

X2I 


1) 


Imaginary part of complex approximation 





— 

Subroutine QUAD 


EPST R EPST ’ ..ID.' E Tolerance check for zero (0) 


; ' Subroutine CALC 

These variables are dummy variables used for temporary storage and thus, are not defined. 
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Figure C,l. Flow Charts for Muller’s Method 
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Figure C„X c (Continued) 
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Figure C,l fl (Continued) 
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0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
0013 

0019 

0020 
0021 
0022 

0023 
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0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 
0033 

0039 

0040 

0041 

0042 


TABLE C .V, 

PROGRAM FOR MULLER* S METHOD 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


******************************************* ********************** *********** 
* * 

* DOUBLE PRECISION PROGRAM FOR MULLER'S METHOD * 


* MULLER'S METHOD EXTRACTS THE ZEROS AND THEIR MULTIPLICITIES OF A 

* POLYNOMIAL OF MAXIMUM DEGREE 25. THROUGH THREE GIVEN POINTS THE 

* POLYNOMIAL IS APPROXIMATED BY A QUADRATIC. THE ZERO OF THE QUADRATIC 

* CLOSEST TO THE OLD APPROXIMATION IS TAKEN AS THE NEW APPROXIMATION. 

* IN THIS MANNER A SEQUENCE IS OBTAINED CONVERGING TO A ZERO. 

* 

m++***** ***************************************************************** 

DOUBLE PRECISION UPX 3 ,VP X3 ,UPX2, VPX 2 , UROOT , VRODT « UX 1 , VX i . UAP P, VAPP 
l ,UX2,VX2,UWQRKtVWORK,UX3, VX3 ,UB , VB ,UX4 , VX4 , U A, VA, UPX L , VPX l ,UR APP »V 
2RAPP,UPX4,VPX4,EPSRT,£PSO,EPS,CCC,EPSM,UH3,VH3,UQ4 t VQ4,A0PX4,ABPX3 
3,0Q0,XSTART,XEN0 

DIMENSION UROOT I 2 51 , VROOT I 25) , MULT I 2 5) »UAPP ( 25 , 3 I , VAPP< 2 5 , 3 I ,UWDRK 
1126) ,VW0RK!26),UB!26) ,VB{ 26) t UA{ 26) , VAl 26 ) ,URAPP ( 2 5 , 3) ,VRAPP!25,3> 

DATA PNAME , DNAME/ 2HP ! ,2H0!/ 

LOGICAL CQNV 

COMMON EPSRT, EP5Q.EPS, 102, MAX 

101 = 5 

102 = 6 

E PS RT = Q . 999 
10 NRGOT=0 
I ROOT=0 
iPATH=l 
NOMULT =0 
NAL TER = 0 
IT IME=0 
I APPM 
I TERM 

RE AD 1 1 01 ,1000) NOPOLY »NP, NAPP, MAX, EPS » E PSO, E PSM, XST AR T, XENO,KCHECK 
IF ( KCHEC K .£ 0. 1 I STOP 


KKK=NP*-l 

RE AO 1101,1010) (UAI I i ,VAI I), 1*1, KKK) 

WRITE! 102, 10201 NQPQLY ,NP 

WRITE! 102,1035) I PNAME, I ,UA!I) , V AID , I* 1 ,KKK ) 

WRITE! 102,2060) 

WRITE! 102,2000) NAPP 
WRI TEC 102 ,2010) MAX 
WRITE! 102,2020) EPS 
WRITE! 102,2030 ) EPSM 
WRITE! 102,2040) XSTART 
WRITE! 102,2050) XEND 
IF ( NP.GT . 2 ) GO TO 15 

CALL QUAOIUA.VA.NP, UROOT , VROOT, NROQT , MULT ,EPSO) 

WRITE! 102,1037) 

WRITE! 102, 1036) ( I .UROOT U ) , VROOT U ) ,MUL T 1 1 ) , I » l , NROQT ) 
GO TO 10 

15 I F ! NAPP . NE .0 ) GO TO 20 
NAPP=NR 


CALL GENAPPtUAPP, VAPP, NAPP, XSTART ) 

GO TO 27 

20 READ! 101,10301 (UAPP I I , 2 ) , VAPP I l , 2 ) , l* 1 ,NAPP ) 
00 25 1=1, NAPP 
UAPP! I , 1 )=0.9*UAPPl 1,2) 
VAPP(t,ll=0.9*VAPPU,2) 
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TABLE C.V (Continued) 


0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 
0060 
0081 
OOB2 

0083 

0084 

0085 
00 86 
0087 

0080 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 


UAPPII ,3)=1.1*UAPPII,2) 

25 VAPP!I,3)=l.l*VAPP(I,2l 
27 KKK=NPU 

DO 30 1=1, KKK 
UWORK l 1 I =U A! It 
30 VWORK ( 1 1 = VA( 1 1 
NWORX=NP 

40 UX1=UAPP( JAPP, 11 
VX1 =VAPP ( IAPP,1) 

UX2=UAPP! I APP, 21 
VX2 = VAPPUAPP,2) 

UX3=UAPP( IAPP,3) 

VK3*VAPPUAPP, 3) 

CALL HORNER < NWORK , UWORK i VWORK »UX l , VXl ,UB »VB»UPXl«VPXl) 

CALL HORNE R< NWORK, UWORK, VWORK, UX 2, VX2 ,UB,V8,UPX2,VPX2> 

CALL HORNER ! NWOR K, UWORK , VWORK, UX 3, VX3,UB,VB»l)PX3#VPX 3) 

50 CALL CALC 4 UX1, VX 1 ,UX2 ,VX2 , UX3 ,VX3,UPX 1 , VP XI, UPX2 , VP X2 ,UPX3 , VPX3 »UX 
14,VX4,UQ4, VQ4, UH3 , VH3 I 

60 CALL HORNER! NWORK , UWORK , VWORK, UX4, VX4,UB ,VB,UPX4,VPX4) 
ABPX4=0SQRT(UPX4+UPX4+VPX4*VPX4) 

ABPX3=DSQRT!UPX3*UPX3*VPX3*VPX3) 

IF! ABPX3.EQ.0.0) GO TO 70 
QQQ= ABPX4/A0PX3 
IFLQQQ.LE.10.1 GO TO 70 
UQ4=0.5*UQ4 
VQ4=0. 5* VQ4 

UX4=UX3+( UH3*U04-VH3*V04) 

VX4=VX3MVH3*UQ4*-UH3*VQ4) 

GO TO 60 

70 CALL TESTIUX3,VX3,UX4,VX4, CON V 1 
1FIC0NV) GO TO 120 
IFUTER.LT.MAX) GO TO 110 

CALL ALT£R(UAPPUAPP,ll,VAPPI IAPP, ll.UAPP! I APP , 2 ) , VAPP! I APP , 2 I , UAP 
1P( I APP , 3 I ,VAPPt IAPP, 31 ,NALTER,!TIM£ ) 

IFtNALTER.GT .51 GO TO 75 
I TER =1 
GO TO 40 

75 IF < IAPP.LT.NAPP) GO TO 100 
IF IXENO.EQ.O .0) GO TO 77 
lFiXSTART.GT.XEND) GO TO 77 
NAPP=NP 

CALL GENAPP(UAPP,VAPP,NAPP,X START! 

I APP=0 
GO TO 100 
77 WRITE! 102,1090! 

KKK=NWQRK+ 1 

WRITE! 102,10351 { ON AME, J , UWORK! J I , VWORK 1 J 1 , J = 1 , KKK > 

80 I F { NROOT . EG* 01 GO TO 90 
WRITE! 102,10601 

IF! I PATH.tQ. il GO TO 82 

81 !PATH=2 

CALL BETTER(UA,VA,NP , UROQT , VROOT , NRQQT ,UR APP , VRAPP , I ROOT , MULTI 
WRITE! 102,120.01 

82 IF! NROOT .00. 01 GO TO 90 

J F 1 IROOT .IQ.OI GO TO 85 
WRITE! 102,1000) 

DO 55 1=1, IROOT 

5 5 WRITE ( 102, 1085) I .UROOT ( I ) , VROOT ( I ) , HUL T ! l),UR APP 1 I , 2 ) , VRAPP ( I , 2 ) 
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0099 


TFMffOOT .LT .NROOT1 GO TO 85 

0100 


GO TO 87 

0101 

85 

KKK=|ROOTM 

0102 


WRITE 1 102,10861 ( I ,URDQT 1 1 1 » VROOT { 1 1 , MJLT | I » , l-KKK , NROQT » 

0103 

87 

I F ( IPATH.fc0.il GO TO 81 

0109 


GO TO 10 

0105 

90 

WRITE! 102.10701 NOPQCY 

010b 


GO TO 10 

010T 

100 

IAPPM APP*1 

oioe 


1 TER = t 

0109 


NAITER=0 

0110 


GO TO 40 

0111 

120 

NRQOT -NROOT+ l 

0112 


I RQOT=NRQOT 

0113 


HUL T 1 NROOT 1 * 1 

0114 


NOMULT.=NOMULT*l 

0115 


UROOT <NR00T1=UX4 

011b 


VROOT ( NROQT 1 =VX4 

0117 


URAPPI NROOT. 1J=UAPP( IAPP, 11 

one 


VRAPPINROOT, ll=VAPPUAPP, 1 > 

0119 


URAPP(NRDOT,2)*UAPP< IAPP, 2 1 

0120 


VRAPP(NROOT,2i=YAPP( IAPP, 21 

0121 


URAPPINROOT » 3 1 *U APP l IAPP, 31 

0122 


VRAPPINROOT , 31 =YAPP( IAPP,3) 

0123 

125 

IFINOMULT.lT.NPl GO TO 130 

0124 


GO TO 80 

0125 

130 

CALL HORNE R ( NWOR K , UWORK » VWORK ,UX4 »VX4, Ufl ,VB , UP X4, VP X4) 

0126 


NWQRK=NWORK-i 

0127 


KKK-NW0RK*1 

0128 


00 140 1=1, KKK 

0129 


UWORKI 1 )=UB{ I 1 

0130 

140 

VW0RKm=V8(l> 

0131 


CALL HORNER (NWORK, UWORK, VWORK, UX4,VX4,U8»VB,UPX4,VPX4I 

0132 


CCC=DSQRT (UPX4*UPX4*VPX4*VPX41 

0133 


1 F ( CCC .LT.EPSM1 GO TO 150 

0134 


IFINW0RK.GT.21 GO TO 75 

0135 


!ROOT=NROOT 

01 36 


CALL QUAD1UWQRK, VWORK .NWORK, UROOT »V ROOT » NROOT, MULT.EPSOI 

013 7 


GO TO 00 

0136 

150 

MUL T (NROOT! = MULT 1 NROOT > ♦ l 

0139 


NOMULT = NOMUL T* 1 

0140 


GO TO 125 

0141 

1 10 

UXl =UX2 

0142 


VX1=VX2 

0143 


UX2=UX3 

0144 


VX2=VX3 

0145 


UX3=UX4 

0146 


VX3=VX4 

0147 


UPX 1=UPX2 

0148 


VPX 1 = VPX 2 

0149 


UPX2=UPX3 

0150 


VPX2=VPX3 

0151 


UPX3=UPX 4 

0152 


VPX3=VPX4 

0153 


ITER= ITER*1 

0154 


GO TO 50 

0155 

1010 

FORMAT C 2030 .0 1 

0156 

1020 

FORMAT ( IH1, IX, 52HMULLERS METHOD FOR FINDING THE ZEROS OF A PQLYNOM 
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0157 

0158 

0159 

0160 
3161 

0162 

0163 

0169 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 
0179 
0175 


LIAL/1H , IX, 16H POLYNOMIAL NUMBER ,!2,UH OF DEGREE ,IZ///1H ,1X,Z8H 
2 THE COEFFICIENTS OF P!X) ARE/'/I 
1030 FORMAT (2D30.0) 

1090 FORMAT ! / / / , l X, 65HC0EFF IC 1 ENT S OF DEFEAT EO POLYNOMIAL FOR WHICH NO 
1ZEKOS WERE FOUND//! 

1080 FORMAT! ///IX, 1 3HR00TS OF PI X I , 52X , 1 9HMULT 1 PL IC 1TI E$ , 17X , 21 HIN I T 1 AL 
1 APPROXIMATION//! 

1070 FORMAT!//, 93H NO ZEROS WERE FOUNO FOR POLYNOMIAL NUMBER ,121 
1086 FORMAT I 2X» 5HR30T ( , 1 2 »9H ) a ,D23.16,3H ♦ ,D23.16,2H I , 8X , 1 2 , 9X* 23HS 
10LVE0 BY DIRECT METHOD) 

1037 FORMAT I///, IX,13HZERQ$ OF P (XI , 5 IX , 1 9HMULT 1 PL IC! T I ES// I 
1035 F0RMAT!3X,A2,I 2,9H> = ,023.16,3H t ,023.16,2H I! 

IOB5 FOR MAT12X.5H ROOT ! ,12 , 9H) * ,D23.l6,3H * ,D23.16,2H 1 , BX,12,8X,D23. 
116, 3H ♦ ,023. 16 , 2H I ) 

1000 FORMAT (3112, IX), 9X, 13, 8X, 3106.0,1X1 , 13 X , 2 I 07, 0 , IX I , I II 
1060 FOPMATI///35H BEFORE ATTEMPT TO IMPROVE ACCURACY) 

1200 FORMAT ( /// IX,37HAFTER THE ATTEMPT TO IMPROVE ACCURACYI 
2000 FORMAT 1 1 X ,91 HNUMBER OF INITIAL APPROXIMATIONS GIVEN. ,121 
2010 FORMAT! IX, 29HMAX I MUM NUMBER OF I TER AT I ON S . , 1 1 X , 13) 

2020 FORMAT ! IX, 21HTEST FOR CONVERGENCE 13X, 09. 2) 

2030 FORMAT! IX, 29HTEST FOR MULT IPL IC ITI ES. ,10K , 09.2 I 
2090 FORMAT! IX, 23HRAOIUS TO START SE ARCH. , 1 l X , 09. 2 ) 

2050 FORMAT 1 1 X , 21 HR AO I US TO END SEARCH., 13X,D9 . 2 ) 

2060 F0RMAK//1X) 

ENO 
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0001 


0002 

0003 

0004 

0005 

0006 
0007 
0000 

0009 

0010 
00L 1 
0012 

0013 

0014 

0015 

0016 
0017 
0016 
001 9 
0020 
0021 
0022 

0023 

0024 

0025 

0026 
0027 


0028 


0029 


TABLE CcV 


(Continued) 


subroutine alter ixir.xii ,X2«,X2 i,x3r,x3i,n alter, itihei 

Q **************************************** ******************************* 

c * * 

c * subroutine alter alters the initial approbations which produce no * 

C * CONVERGENCE TO A ZERO. THIS IS OQNE A MAX I HUH OF 5 TIMES FOR EACH ROOT. * 

C * * 

C ********* ************************ *************** ******* ********************* 

DOUBLE PRECISION X IR , XI I . X2R , X2 I i X3R , X 31 , EPS 1, EPS2 . EP53 t R , BETA 
COMMON EPSl,EPS2»EPS3,I02,MAX 
I F( ITIME.NE.O) GO TO 5 
IT IHE=1 

WRITEU02, 10101 MAX 
5 I F ( NALTER.EO.O ) GO TO 10 

WRIT El 102* 1000 i XlR»XU»X2R,X2I»X3R»X3l 
GO TO 20 

10 R = DSORT< X2R*X2R*X2I*X2H 
BETA*0ATAN2IX2[,X2R» 

WR1 IE ( 102 1 1020 ) X1R.X1I ,X2R,X2I ,X3R»X3I 
20 NAL7ER-NALTER+1 

IF1NALTER.GT.51 RETURN 
GO TO (30, 40 ,30,40*301 »NALTE R 
30 X2R=-X2R 
X2 I »-X2 I 
GO TO 50 

40 BETA=B6TA+l. 0471976 
X2R = R*0C0S( BET Al 
X2I«R*0SIN(BETA> 

50 X1R=0.9*X2R 
XII»0.9*X2I 
X3U=1.1*X2R 
X3 I = l . 1 *X2 1 
RETURN 

1000 FORMAT (IX. 5HX 1 =* ,D23.16.3H * ,D23.16,2H I *10X, 2 2H ALTERED APPROXIM 
1ATI0NS/ IX,5HX2 = .023.16.3H * ,D23.t6,2H I/1X.5HX3 = ,023.16 f 3H ♦ 

2,023. 16, 2H 1/1 

1020 FORMAT 1 lHO » 5HX 1 = ,023.16,3H * ,023.l6,2H I , IQX, 22HI N! Tf AL APPROXI 
1MATI0NS/IX.5HX2 = ,023.16,3H ♦ ,D23.16,2H 1/1X.5HX3 = ,023.16, 3H + 

2 i 023 . 16 i 2H 1/1 

1010 FORMAT { ///IX ,54HNQ CONVERGENCE FOR THE FOLLOWING APPROXIMATIONS AF 
ITER , I 3, 12H ITERATIONS.//! 

END 


0030 



155 


TABLE C.V (Continued) 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 


c 

c 

c 

c 

c 

c 


SUBROUTINE GENAPP l APPR, APPl.NAPP, XSTART I 
****************** it******************************************************** 


* SUBROUTINE GENAPP GENERATES N INITIAL APPROXIMATIONS, WHERE N i S THE 

* DEGREE OF THE ORIGINAL POLYNOMIAL. 


♦♦I************************************************************************* 

DOUBLE PRECISION APPR, APPI , XSTART, EPSl#EP52»EPS3, BET A 

DIMENSION APPRI25, 31, APPH25, 31 

COMMON EPS l, EPS2.EPS 3, 102, MAX 

IFIXSTART.EQ.0.01 XSTART-0.5 

BETA=0. 2617994 

00 10 I =1 »NAPP 

APPRI 1 , 2 I* XSTART*OCOSt BETA! 

APPMI t 21 a XSTART*0SIN(BETAl 
BETAsBETA40. 5235988 
10 XSTART=XSTART+0.5 
OO 20 l*l»NAPP 
APPR 11,11=0. 9* APPRIl»2l 
APPI 1 1 , 1 l*0,9*APP I ( 1 ,21 
APPRII,3t=L.l*APPRll,2» 

20 APPI 1 1 , 3I»1 • l*APPI 1 1 ,21 
RETURN 

END ‘ 


# # * * 
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TABLE C.V (Continued) 


0001 


0002 

0003 

0004 


SUBROUTINE BETTEIHUA * VA, NP »URGQT , VRQOT, NROOT *URAP P* VRAPP » 1 ROOT • MUL 
IT) 

C *+*##*******♦#***********♦*+**+********•***********#******•**********♦***•** 

c * * 

C * SUBROUTINE BETTER ATTEMPTS TO IMPROVE THE ACCURACY OF THE ZEROS FOUND * 

C * BY USING THEM AS INITIAL APPROXIMATIONS WITH MULLER 1 S METHOD APPLIED TO * 

C * THE FULL * UNDEFEATED POLYNOMIAL. * 

C * * 

c *+*****#***•******#*************************** ******* ************* ********** 

DOUBLE PRECISION UROOT, VRQOT, UA, VA »UBAPP , VBAPP ,UX1, VX1 ,UX2 , VX2,UX3 
1*VX3»UPX1,VPX1 >UPX2 » VPX2 ,UPX3 »VPX3 »UB»VB,UROOTSf VRQOT S, EP5RT»UX4, V 
2X4»UR APP * VRAPP t EPSO i EPS ,UQ4« VQ4 , UH3* VH3 
LOGICAL CONV 

DIMENSION UROOT I 25) , VROOTI 25) ,UA! 26) , VA126 I , UBAPPI 25 ,3) ,VBAPP( 25 ,3 
1 ),UB!26t »VB( 26 ) * UROOT S( 25) » VRQOT SI 23) ,URAPPI2S,3I , VRAPP 1 25 , 3) , MULT 


3125} 


0005 


COMMON EPSRT,EPS0*EPS,1Q2,MAX 

0006 


IFlNROOT.LE.il RETURN 

0007 


L=0 

0008 


DO 10 1*1* NROOT 

0009 


UBAPPI 1*1 l=UROOT! 1)*EPSRT 

0010 


VBAPP 11 * 1 )■ VROOTI I )*£PSRT 

0011 


UBAPPI 1 « 2 )=URQOT 11) 

0012 


VBApP ( 1 , 2 1* V ROOT ( I ) 

0013 


UBAPP! 1 ,3)=UROQTI 1 1M2.0-EPSRT1 

0014 

10 

V BA PR1I*3I=V ROOT 111*12 ,Q-EPSRT ) 

0015 


DO 100 4*1, NROOT 

0016 


UX1* UBAPPI J i 1) 

0017 


•VX1=V6APP(J,1) 

ooie 


UX2 “UBAPPI 4,2 ) 

0019 


VX2=VBAPP1 4,2) 

0020 


UX3=UBAPP1 J t 31 

0021 


VX3= VBAPP! 4*3) 

0022 


1 T£ R = 1 ' 

0023 


CALL HORNER (NP, U A* VA,UX1 ,VX1»U0*VB»UPXI,VPX1I 

0024 


CALL HORNERINP,UA,VA,UX2 ,VX2*UB* VB ,UPX2 , VPX2 ) 

0025 

20 

CALL HORNE R l NP *UA* VA ,UX3 ,VX3« UB « VB , UPX3, VPX3 1 

00 26 


CALL CALCCUXl »VX\ ,UX2 ,VX2 ,UX3 *VX3,UPX1, VP XI , UPX2 , VPX2 *UPX3* VPX3 ,UX 



14, VX4,U04,VQ4»UH3,VH3) 

0027 

30 

CALL TESnUX3,VX3,UX4,VX4,C0NV) . 

0028 


I FI CONV 1 GO TO 50 

0029 


IF( ITER. LT. MAX) GD TO 40 

0030 


WRITE! 102,1000) J, UROOT! 4> , VRQOT 14 ) »MAX 

0031 


WRITE! 102,10101 UX4,VX4 

0032 


IF! J .LT. IROOT ) GO TO 33 

0033 


IF! 4«£ 0. I ROOT 1 GO TO 35 

0034 


GO TO 100 

0035 

33 

KKK»1R00T-1 

0036 


DO 34 K* J ,KKK 

0037 


URAPP1 K, 1 l=URAPPIK+l , 1) 

0038 


VRAPP1K, 1) » VRAP P I K + 1 » 1 1 

0039 


URAPP!K,2l=URAPPiK*l ,2) 

0040 


VRAPP 1 K , 2)=VRAPP!K+l,2) 

0041 


URAPP(K,3) =URAPP I K + l , 3 ) 

0042 

34 

VRAPP!K,3l=VRAPP!K*l ,3) 

0043 

35 

IROOT* IROOT- l 

0044 


GO TO 100 

0045 

40 

UXUUX2 



TABLE C.V (Continued) 


004b 

VX1»VX2 





0047 

UX2=UX3 





0048 

VX2=VX3 





0049 

UX3=UX4 





0050 

VX3«VX4 





0051 

UPXl»UPX2 





0052 

VPX1=VPX2 





0053 

UPX2*UPX3 





0054 

VPX2=VPX3 





0055 

1 TER=1 TER*1 





0056 

GO TO 20 





0057 

50 L=L+l 





0058 

UROOTSt L ) =UX4 





0059 

VROQTSI L1-VX4 





0060 

MOLT (L ) =HULT { J ) 





0061 

100 CONTINUE 





0062 

IF t L .EQ.O 1 GO TO 120 





0063 

DO 110 1*1, L 





0064 

UROOT ( 1 ) -UROOT S< 1 1 





0065 

110 VROOT 1 1 1 * VRQOTSI I) 





0066 

NRQOT=L 





0067 

RETURN 





0068 

120 NROOT *0 





0069 

RETURN 





0070 

1000 FORMAT 1 /// 42H IN THE ATTEMPT 

TO IMPROVE 

ACCURACY, ROOT ( , 12,4HI * , 


1023. 16, 3H * .D23.16.2H 

1/24H 

010 NOT 

CONVERGE AFTER ,13, UH ITERAT 


2 IONS 1 





0071 

1010 FORMAT 1 30H THE PRESENT 

APPROXIMATION 

IS 

,023.16, 3H * ,D23.16,2H 1/ 


1/1 





0072 

ENO 
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TABLE CoV (Continued) 


0001 


0002 

0003 


0004 

0005 

0006 
0007 
0009 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 

ooia 

0019 

0020 
0021 
0022 

0023 

0024 

00 25 

0026 

0027 

0028 
0029 
00 30 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 


SUBROUTINE C ALC < UX1 , VX1 ,UX2 , VX2 ,UX3 »VX3 ,UPXl ,VPXt ,UPX2 , VPX2 ,UPX3 , V 
lPK3f UX4,VX4*UQ4» VQ4fllH3»VH3l 

C tt+m+m******* ******+****••****+*•**********************************•***' 

C * ' 

C * GIVEN THREE APPROXIMATIONS XIN-21* XlN-ll. AND X(N1« SUBROUTINE CALC 

c * APPROXIMATES THE POLYNOMIAL BY A QUADRATIC ANO SOLVES FOR the 2ER0 OF 

C * THE QUADRATIC CLOSEST TO X<N>. THIS ZERO IS THE NEW APPROXIMATION 

C * XINMI TO THE ZERO OF THE POLYNOMIAL* 

C * 

C ***************************************** *******6***6* *********************1 

DOUBLE PRECISION ARGli ARG2 

DOUBLE PRECISION UPX3 , VPX3 ,UPX2 , VPX2 *UX l ,VX l *UX2 , VX2.UX3, VX3,UPXl , 
lVPXl,UH3,VH3,UH2,VM2,UQ3,VQ3,UO,VO,UB,VB,UC,VC.UOISC,VDISC,UCCC,VC 
2CC»U0ENl i VOENl • UDEN2 , VDEN2 »UQ4, VQ4»UX4*VX4» EP SRT, EPSO*EPS»UDOD» VDO 
3D ,AAA,BBB,RAD,UAAA f VAAA.UBBB.VBBB 
DOUBLE PRECISION THETA, ANGLE.UTEST, VTEST 
COMMON EPSRT ,EPSO*EPS, 102 , MAX 
UH3=UX3-UX2 
VH3=VX3-VX2 
UH2=UX2-UX1 
VH2* VX2-VX1 
BBB=UH2*UH2*VH2*VH2 
UQ3*( UH3*UH2*VH3*VH2 I /BBS 
VQ3=IVH3*UH2-UH3*VH21/B3B 
UODD s l *0 *UQ3 
V00D=VQ3 

UD* IUPX3-(UODD*UPX2-VDDD*VPX2» »*IUQ3*UPX1-VQ3*VPXU 
VD= I VPX3-I VD00*l)PX2*UDD0*VPX2) J *1 VQ3*UPX1*UQ3*VPX 1) 

UAA A = 2* 0*UQ3 

VAAA=2.0*VQ3 

UAAA=UAAA+1.0 

UBBB a UOOD*UDDD-VODO*VOQD 

VB8B=VDOD*UODD«-UODD*VODD 

UCCC*UQ3*UQ3-VQ3*V93 

VCCC-VQ 3*UQ3*UQ3*VQ3 

UB=((UAAA*UPX3-VAAA*VPX3|-IUBBB4UPX2-VBBB*VPX2) »♦< UCCC*UPX1-VCCC*V 
IPXII 

VB=ttVAAA*UPX3*UAAA*VPX3 1— ( VBBB*UPX2+USflB*VPX2 1 1 ♦{ VCCC*UPXl ♦UCCC*V 
1PXI i 

UC=U00D*UPX3-VDDD*VPX3 

VC=VDDD*UPX3*U000*VPX3 

UQlSC = IUB*UB-Vti*VB»-I4.0*IUD*UC-VD*VC> > 

VOISC = ( 2.0*( VB*UBM-I 4.0*1 VD*UC+UD*VCI I 
AAA = DSQRT (UO ISC*UDISC*VDISC*VD ISC I 
IFIAAA.EQ.O.O) GO TO 5 
GO TO 7 
5 THETA=0.0 
GO TO 9 

7 THET A=0ATAN2( VD I SC »UDI SC I 
9 RAD=DSQRT < AAA) 

ANGLE= THE T A/ 2* 0 
UTEST*RAD*DCOS (ANGLE > 

VTESTaR AD*DS IN I ANGLE ) 

UOENl*UB»UTEST 
VDENl=VB+VTEST 
UD£N2=UB-UTEST 
V0fcN2= VB-VTE ST 

ARGI=UDENl*UDENt*VOENl*VOENl 



TABLE C.V (Continued) 


0045 

0046 

0047 
004B 
0049 

ooso 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
006 L 
0062 

0063 

0064 

0065 

0066 
006 7 


■ A«G2=UOEN2*UOEN2*VDEN2*VDEN2 
AAA=QSQRT (ARG1 I 
B8B=DSQRT ( ARG2 ) 

IFIAAA.LT .BOB > GO TO 10 
IFt AAA. EQ. 0.01 GO TO 60 
UAAA=-2.0*UC 
VAAA=-2 »0*VC 

U04* I UA AA*UOEN 1+ VAAA* VDE HI ) / ARG l 
V04°<VAAA*UDEN1-UAAA*VDEHU/ARG1 
GO TO 50 

10 1F( BBB.EQ.O.QI GO TO 60 
UAAA=-2.0*UC 
VAAA*-2» 0*VC 

UQ4= IUAAA*UDEN2*VAAA*VDEN2 I/ARG2 
V04* I VAAA+UD£N2-UAAA^VDEN2 1/ARG2 
GO TO 50 

50 UX4=UX3+tUH3*UQ4-VH3*VQ4) 
VX4-VX3* ( VH3*UQ4+UH3*VQ4 > 

RETURN 
60 UQ4* l .0 
V04=0* 0 
GO TO 50 
END 
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TABLE C.V (Continued) 


0001 


SUBROUTINE TESTJUX3 ,VX3 »UX4, VX4 ,CONV I 

C *************************************************************************** 

c * 

C * SUBROUTINE TEST CHECKS FOR CONVERGENCE OF THE SEQUENCE OF APPROX— 

C * IMATIQNS BV TESTING THE EXPRESSION 

C * ABSOLUTE VALUE OF I X ( N*1 )-X I N I) / ABSOLUTE VALUE OF XIN+11. 

C * WHEN IT IS AS SMALL AS DESIRED, CONVERGENCE IS OBTAINED. 

C * ' 

c ****************************************************************** *********< 


0002 


DOUBLE PRECISION UX3.VX3.UXA, VX4,EP$RT,EPSQ.EPS,AAA,U0UMMY»VDUMHY f 



1DEN0M 

000 3 


LOGICAL CONV 

0004 


COMMON EPSRT,EPSO,EPS,I02»MAX 

0005 


U0UMHY*UX4-UX3 

0006 


VDUMMY=VX4-VX3 

0007 


AAA*DSQRHU0UMMY*UDUMMY*VDUMHY«‘VDUHMYI 

0008 


OENOM=DSQRT I UX4* UX4* VX4* VX4I 

0009 


IFIOENON.LT. EPS01 GO TO 20 

0010 


I F | AAA/ OENDM.LT .EPS ) GO TO 10 

0011 

5 

CONV=. FALSE. 

0012 


GO TO 100 

0013 

10 

CON V=. TRUE • 

0014 


GO TO 100 

0015 

20 

IF< AAA.LT.EPSQ1 GO TO 10 

0016 


GO TO 5 

0017 

100 

RETURN 

0018 


END 


0001 


0002 

0003 

000 * 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 


SUBROUTINE HORNE R I NA , UA , VA , UX , VX , U3 , VB , UPX , VP X I 
C ***** ************************** ************** ********* ******************* *** 

C * ' * 

C * HORNER'S METHOD COMPUTES THE VALUE OF THE POLYNOMIAL PIXI AT A POINT 0. * . 

C * SYNTHETIC DIVISION IS USED TO DEFLATE THE POLYNOMIAL BY DIVIDING OUT THE * 

C * FACTOR IX-DI. * 

C * * 

C ****************** ************************************************* ********* 

DOUBLE PRECISION UX, VX,UPX ,VPX ,UB,VB,UA,VA 
DIMENSION UAI26I ,VA{ 26 1 , UB ( 26 1 , V94 261 
UB(U=UAm 
VBI 1 )*VA< 1 I 
NUM=NA*1 
00 10 1=2 ,NUM 

UBC I l=UAU I + IUBI I-1I*UX-VB( I-1)*VXI . 

10 VBm=VAU)*lVB( I~1I*UX*UB< I-1J*VX> 

UPX=UB(NUM> 

VPX=VBINUM» 

RETURN 

END 
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TABLE C.V (Continued) 


oooi 


0002 

0003 

0004 

0005 

0006 
0007 
0006 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 
D038 

0039 

0040 

0041 
004 2 

0043 

0044 

0045 


SUBROUTINE QUAOIUA * VA»NA*URQQT» VROOT»NRQGT*MULTI »EP$T I 

C ********************************* ******************************************* . 

c * ■ *• 

C * SUBROUTINE QUAD SOLVES DIRECTLY FOR THE ZEROS ANO THEIR MULTIPLICITIES * 

C • OF EITHER A QUADRATIC POLYNOMIAL OR A LINEAR FACTOR. SOLUTION DF THE * 

C * QUAORATIC IS DONE USING THE QUADRATIC FORMULA. * 

C * * 

C mmme+v+t + mr ******* ******* ******************************************* 

DOUBLE PRECISION UA»VA»UROOT, VROOT iBBB.UAAA, VAAA»UOISC#VDI SCtUOUMM 
1Y ,VDUMMY,ROUMMViS DUMMY. EPST, UBBB, VBB6 
DIMENSION UA(26I»VA(26I* UROOT (25) » VROOT 125). MULTI ( 25 I 
IFINA.EQ.2I GO TO T 
IFINA.EQ.D GO TO 5 
UROOT INROOT * l) =Q. 0 
VROOT INROOT *11=0.0 
MULTI (NRQOT+il =1 
NR00T*NR00T*1 
GO TO 50 

5 8BB=UA< l I *UA(1 I*VA(\I*VAI l I 

UROOT I NROOT ♦ 1 1 = l-UAI 2 >*UA( ll-VA l 2I*VA{ II I/BBB 
VROOT { NRQGT ♦ 1 ) = I— V A( 2 ) *U A ( II tUA(2)*VA< 11 l/BBfi 
MULTI ( NROOT *-11 = 1 
NRGOT = NROOT * 1 
GO TO 50 

7 U01SC=(UA(2) *UA«2)-VA(2)*VAC2H-<4.0#IUAm*UAt3»-VAI l)«VA(3t 1) 

VDISC=< VA< 2>*UA(2 |*UA(2>*VA( 2) I -( 4. 0* I VA (1) *UA< 3 > *UA1 1)*VA( 3111 
HBB=DSQRT(UOI SC*UD ISC* VD l SC* VO ISC) 

IFIBBB.LT.EPSTJ GO TO 10 

CALL CQMSQT (UDISCpVOISC .UOUMMY > V DUMMY ) 

UBDB=-UA( 2)*UDUMMY 
VBB6=-VA( 2) *VOUMMY 
R DUMMY = - UA I 2 1 -UOUMMY 
SDUMMY = - VA ( 2 ) - VOliMMY 
UAAA=2.0*UA( 1 1 
VAAA = 2.0*VA< 1 1 
BBB=UAAA*UAAA*VAAA*VAAA 

UROOT C NROOT* 1 » = (U8BB*UAAA*VBBB*VAAA»/ BBB 
VROOT (NROOT* l I = ( V0BB*UAAA-UBB8* VA AAI /BB8 
UROOT ( NROOT + 2 I - <R OUMMY*UA AA + SOUMMY *YAAA | /BB8 
VROOT ( NROOT *2 I = t S0UMMY4UAAA-R0UMMY*VA AA)/ BBB 
MULTI t NKOOT *11 = 1 
MULT I ( NROOT *2 ) a l 
NRU0T=NR00T*2 
GO TO 50 

10 UAAA=2 »0*UA( 1 ) 

VAA A=2 • 0* VA ( l ) 

B88=UAAA*UAAA*VAAA*VAAA 
. UROOT (NROOT *1» = <-lJA( 2 I*UAAA-VAI 21 *V AAAI /BBB 
VROOT ( NROOT* 1 1 * ( — VA ( 2 I *UA AA*UAC 2 ) *V A A A) /BBB 
MULTI (NROOT* 1J =2 
NR00T*NR00T*1 
50 RETURN 
END 
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TABLE C.V (Continued) 


0001 


SUBROUTINE COHSQUUX, VX, UY, VY » 

r **************************************************************************** 
C * * 
C * THIS SUBROUTINE COMPUTES THE SQUARE ROOT OF A COMPLEX NUMBER. * 
C * * 
C #********#********#***♦#**#*************•*•***•*•♦*•*******•**♦*+♦********** 


0002 


DOUBLE PRECISION UX.VX »UY , VY , DUMMY# R, AAA, BBB 

0003 


R»DSGRTIUX*UX*VX*VXl 

0004 


AAA=0SQRT{DA8SUR*UXI/2.0n 

0005 


BBB = D$QRT (DABS M R— UX 1/2.01) 

0006 


I F 1 VX l 10.20.30 

0007 

10 

UY*AAA 

0008 


VY=-l.0*BBB 

0009 


GO TO 100 

0010 

20 

1 FIUX 1 40,50,60 

0011 

30 

UY* AAA 

0012 


VY* BBB 

0013 


GO TO 100 

0014 

40 

OUHMY*DABS(UX) 

0015 


UY=0.0 

0016 


VY=DSQRT( DUMMY! 

0017 


GO TO 100 

0018 

50 

UY*0.0 

0019 


VY=0.0 

0020 


GO TO 100 

0021 

60 

DU MMY = 0 A B S C U X 1 

0022 


UY=DSQRT (DUMMY! 

0023 


VY=0 .0 

0024 

100 

RETURN 

0025 


END 



APPENDIX D 


SPECIAL FEATURES OF THE G.C.D. AND 
THE REPEATED G.C.D. PROGRAMS 

Several special features have been provided in each program as an 

aid to the user and to improve accuracy of the results. These are 

a 

explained and illustrated below. 

1. Generating Approximations 

If the user does not have initial approximations available, sub- 

th 

routine GENAPP can systematically generate, for an N degree polynomial, 
N initial approximations of increasing magnitude, beginning with the 
magnitude specified by XSTART. If XSTART is 0., XSTART is automatically 
initialized to 0.5 to avoid the approximation 0. + O.i. The approxima- 
tions are generated according to the formula: 

Xj, = (XSTART + 0.5K) (Cos B + i Sin 0) 

where 

6 = l2 + K 6 ’ K = 

To accomplish this, the user defines the number of initial approximations 
to be read (NAPP) on the control card to be zero (0) or these columns 


*These illustrations are representative of G. C. D. -Newton' s method 
in double precision. Control cards for other methods should be prepared 
accordingly. 
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(7-8) may be left blank. If XSTART is left blank, it is interpreted as 

0 . 

For example, a portion of a control card which generates initial 
approximations beginning at the origin for a seventh degree polynomial 
is shown in Example D.l. 



Example D.l 


The approximations are generated in a spiral configuration as illustrated 
in Figure A. 1. 

Example D.2 shows a portion of a control card which generates 
initial approximations beginning at a magnitude of 25.0 for a sixth 
degree polynomial. 











Example D.2 


Note that if the approximations are generated beginning at the 
origin, the order in which the roots are found will probably be of 
increasing magnitude. Roots obtained in this way are usually more 
accurate. 



If the number of the alteration is even: (j =0,2,4) 
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X 


■j+1 


= -X. 

J 


Each altered approximation is then taken as a starting approximation. 
If none of the six starting approximations produce convergence,, the 
next initial approximation is taken, and the process repeated. The 
six approximations are spaced 60 degrees apart on a circle of radius 
| X Q | centered at the origin as illustrated in Figure A. 2. 


3. Searching the Complex Plane 


By use of initial approximations and the altering technique, any 
region of the complex plane in the form of an annulus centered at the 
origin can be searched for roots. This procedure can be accomplished 
in two ways. 

The first way is more versatile but requires more effort on the 
part of the user. Specifically selected initial approximation can be 
used to define particular regions to be searched. For example, if the 
roots of a particular polynomial are known to have magnitudes between 
20 and 40 an annulus of inner radius 20 and outer radius 40 could be 
searched by using the initial approximations 20. + i, 23. + i, 26. + i, 
29. + i, 32. + i, 35. + i, 38. + i, 40. + i. 

By generating initial approximations internally, the program can 
search an annulus centered at the origin of inner radius XSTART and 
outer radius XEND. Values for XSTART and XEND are supplied on the 
control card by the user. Example D.3 shows a portion of a control 
card to search the above annulus of inner radius 20.0 and outer radius 


40.0. 
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Note that since not less than N initial approximations can be 
generated at one time, the outer radius of the annulus actually searched 
may be greater than XEND but not greater than XEND + .5N. 

Example D.4 shows a control card to search a circle of radius 15= 



Example D.4 
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Figure A. 3. shows the distribution of initial and altered approxi- 
mations for an annulus of width 2 and inner radius a. 

4. Improving Zeros Found 

After the zeros of a polynomial are found, they are printed under 
the heading "Roots of Q(X)." They are then used as initial approxima- 
tions with Newton's (Muller's) method applied each time to the full 
(undeflated) polynomial Q(X), which contains only distinct roots. In 
most cases, zeros that have lost accuracy due to roundoff error in the 
deflation process are improved. The improved zeros are then printed 
under the heading "Roots of P(X)." Since each root is used as an 
approximation to the original (undeflated) polynomial Q(X), it is 
possible that the root may converge to an entirely different root. 

This is especially true where several zeros are close together. 
Therefore, the user should check both lists of zeros to determine 
whether or not this has occurred. 

5. Solving Quadratic Polynomial 
fch 

After N-2 roots of an N degree polynomial have been extracted, 

2 

the remaining quadratic, aX + bX + c, is solved using the quadratic 
formula 

v _ -b + X 2 - 4ac 

J\. — - 

2a 

for the two remaining roots. These are indicated by the words "Results 
of Subroutine QUAD" in the initial approximation column. If only a 
polynomial of degree 1 is to be solved, the solution is found directly 
as (X - C) = 0 implies X = C. 
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6. Missing Roots 

If not all N roots of an N degree polynomial are found, the 
coefficients of the remaining deflated polynomial are printed under the 
heading "Coefficients of Deflated Polynomial For Which No Zeros Were 
Found.” The user may then work with this polynomial in an attempt to 
find the remaining roots. The leading coefficient (coefficient of the 
highest degree term) will be printed first (Exhibit 6.. 11) 

7. Miscellaneous 

By using various combinations of values for NAPP , XSTART, and 
XEND, the user has several options available as illustrated below. 

Example D. 5 shows the control card for a seventh degree polynomial. 
Three initial approximations are supplied by the user. At most three 
roots will be found and the coefficients of the remaining deflated 
polynomial will be printed. 
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Note that if several roots are known to the user, they may be 

"divided out" of the original polynomial by using this procedure. 

Example D.6 indicates that 2 initial approximations are supplied 
th 

by the user to a 7 degree polynomial. After these approximations 
are used the circle of radius 15 will be searched for the remaining 
roots . 
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Example D.6 


By defining XSTART between 0. and 15. an annulus instead of the 


circle will be searched. 











APPENDIX ' E 

G.C.D. - NEWTON'S METHOD 
1. Use of the Program 

A double precision FORTRAN IV program using the G.C.D. method 
with Newton's method as a supporting: method is presented here. Flow 
charts for this program are given in Figure E.6 while Table E.VII gives 
a FORTRAN IV listing of this program. Single precision variables are 
listed in some of the tables. The simple precision variables are used 
in the flow charts and the corresponding double precision variables can 
be obtained from the appropriate tables. 

This program is designed to solve polynomials having degree less 
than or equal to 25. In order to solve polynomials of degree N where 
N > 25, the data statement and array dimensions given in Talbe E.I must 
be changed. 

In this program both the leading coefficient and the constant 
coefficient are assumed to be non-zero. 
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TABLE-iE . I. 

PROGRAM CHANGES NECESSARY TO SOLVE POLYNOMIALS OF DEGREE 
GREATER THAN 25 BY. G.C.D. - NEWTON’S METHOD 


Main Program 


Data Ent ry / 1H1 , 1H2 , . . . ,1H9 , 2H10 , 2H11 , . . . ,2HXX/where XX = N+l 

UP (N+l), VP (N+l) 

UAPP(N), VAPP(N) 

UROOT(N), VROOT(N) 

MULT (N) 

UDP (N+l) , VDP (N+l) 

UD(N+1) , VD(N+1) 

UQ (N+l) , VQ (N+l) 

UQQ(N+1>, VQQ(N+1) 

UAP(N), VAP(N) 

UQD(N+1) , VQD(N+1) 

ENTRY (N+l) 

UROOTS(N), VROOTS(N) 


Subroutine GENAPP 


APPR(N), APPI(N) 


Subroutine GCD 

UR (N+l) , VR(N+1) 

US (N+l), VS (N+l) 

US S (N+l), VSS (N+l) 
URR(N+1), VRR(N+1) 
UT (N+l) , VT (N+l) 


Subroutine QUAD 

UA(N+1) , VA(N+1) 
UROOT(N), VROOT(N) 
MULT (N) 

Subroutine NEWTON 

UP (N+l), VP (N+l) 
UB (N+l) , VB (N+l) 


Subroutine DIVIDE 

UP (N+l), VP (N+l) 
UD(N+1) , VD(N+1) 
UQ (N+l) , VQ (N+l) 
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TABLE E.I (Continued) 


Subroutine HORNER 

UP (N+l) , VP (N+l) 
UB(N+1), VB (N+l) 


Subroutine DERIV 

UP (N+l), VP (N+l) 
UA(N+1) , VA(N+1) 

Subroutine MULTI 

UP (N+l), VP (N+l) 
UROOT(N), VROOT(N) 
UA(N+1), ,VA(N+1) 

UB (N+l) , VB (N+l) 
MULT (N) 


2, Input Data for G.C.D. - Newton’s Method 

The input data for G.C.D. - Newton's method is grouped into 
polynomial data sets. Each polynomial data set consists of the data 
for one and only one polynomial. As many polynomials as the user 
desires may be solved by placing the polynomial data sets one behind 
the other. Each polynomial data set consists of three kinds of infor- 
mation placed in the following order: 

1. Control information. 

2. Coefficients of the polynomial . 

3. Initial approximations. These may be omitted as 
described in Appendix D, § 1. 

An end card follows the entire collection of data sets. It indicates 
that there is no more data to follow and terminates execution of the 
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program. This information is displayed in Figure E.l and described 
below. All data should be right justified and the D-type specification 
should be used. The recommendations given in Table E.1I are those 
found to give best results on the IBM 360/50 computer which has a 32 
bit word. 

Control Information 

The control card is the first card of the polynomial data set and 
contains ; the information given in Table E.II. See Figure E.2. 


TABLE E.II 

CONTROL DATA FOR G.C.D. - NEWTON’S METHOD 


Variable Name Card Columns 


NOPOLY 


c.c, 1-2 


NP 


c.c. 4-5 


NAPP 


c.c. 7-8 


MAX 


c.c. 19-21 


EPS1 


c.c. 23-28 


Description 

Number of the polynomial. 
Integer. 

Right justified. 

Degree of the polynomial. 

Integer . 

Right justified. 

Number of initial approximations 
to be read. 

Integer. 

Right justified. 

If no initial approximations are 
given, leave blank. 

Maximum number of iterations. 
Integer. 

Right justified. 

200 is recommended. 

Test for zero in subroutine GCD. 
Double precision. 

Right justify. 

1.D-G3 is recommended. 
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TABLE E. II (Continued) 


Variable Name 
EPS 2 

EPS3 

EPS4 

XSTART 


XEND 


KCHECK 


Card Columns 
c.c. 30-35 

c.c. 37-42 

c.c. 44-49 

c.c. 64-70 


c.c. 72-78 


c.c. 80 


Description 

Convergence requirement. 

Double precision. 

Right justify. 
l.D-10 is recommended. 

Test for zero in subroutine QUAD. 
Double precision. 

Right justify. 
l.D-20 is recommended. 

Multiplicity requirement. 

Double precision. 

Right justify. 
l.D-02 is recommended. 

Magnitude at which to begin 

generating initial approximations. 
Double precision. 

Right justify. 

This is a special feature of the 
program and may be omitted. 

Magnitude at which to end the 
generating of initial 
approximations . 

Double precision. 

Right justify. 

This is a special feature of the 
program and may be omitted. 

This should be left blank. 


Coefficients of the Polynomial 

The coefficient cards follow the control card. For an N th degree 

polynomial, N+l coefficients must be entered one per card, The 

coefficient of the highest degree term is entered first; that is, the 

leading coefficient is entered first. For example, if the polynomial 
5 4 

X + 3X + 2X + 5 were to be solved for its zeros, the order in which 
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the coefficients would be entered is: 1, 3, 0, 0, 2, 5. Each real 
or complex coefficient is entered, one per card, as described in 
Table E.III and illustrated in Figure E.3« 


TABLE E.III 

COEFFICIENT DATA FOR G.C.D. - NEWTON'S METHOD 


Variable Name Card Columns Description 

UP (P in single precision) c.c, 1-30 Real part of complex 

coefficient. 

Double precision. 

Right justify. 

If none, leave blank or enter 
0.0D00. 


VP (P in single precision) c.c. 31-60 Imaginary part of complex 

coefficient. 

Double precision. 

Right justify. 

If none, leave blank or enter 
0.0D00. 


Initial Approximations 

The initial approximation cards follow the set of coefficient 
cards. The number of initial approximations read must be the number 
specified on the control card and are entered, one per card, as given 
in Table E.IV and illustrated in Figure E.4. 
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TABLE E . IV 

INITIAL APPROXIMATION DATA FOR G.C.D. - NEWTON’S METHOD 


Variable Name 

UAPP (APP in single 
precision) 


VAPP (APP in single 
precision) 


Card Columns Description 

c.c. 1-30 Real part of complex number. 

Double precision. 

Right justify. 

If none, leave blank or 
enter 0.0D00. 


c.c. 31-60 Imaginary part of complex 
number. 

Double precision. 

Right justify. 

If none, leave blank or 
enter 0.0D00. 


End Card 

The end card is the last card of the input data to the program. 

It indicates that there is no more data to be read. When this card is 
read, program execution is terminated. This card is described in 
Table E,V and illustrated in Figure E.5, 


TABLE E.V 

DATA TO END EXECUTION OF G.C.D. - NEWTON’S METHOD 

Variable Name Card Column Description 

KCHECK c.c. 80 Must contain the number 1. 

Integer . 



178 


3. Variables Used in G.C.D. - Newton’s Method 

The definitions of the major variables used in G.C.D. - Newton's 
method are given in Table E.VI. The symbols used to indicate type 
are : 


R - real variable 
I - integer variable 
D - double precision 
C - complex variable 
L - logical variable 
A - alphanumeric variable 

When two variables are listed, the one on the left is the real part of 
the corresponding single precision complex variable; the one on the right 
is the imaginary part. The symbols used to indicate disposition are: 

E - entered 
R - returned 

ECR - entered, changed, and returned 
C - variable in common 
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•Variable Name 
-Card Columns 


00pp0pp0plllllllllL222 222222 2 33333! 
123 i5 6 7890123456 78 901 2 3456 789 31234; 


J33444 4 444444 55 55555555 6666 666666777777777); 
'89012345678901234567890123456789012345678! 


EPS1 EPS 2 EPS 3 EPS4 


lSTART xend 


:ool g.n~03l tL.D-ioni.D-2oi 1 .D -02 


. . OD+Olj 15. 0D+02 


Example 


Figure E.2. Control Card for G.C.D. - Newton’s Method 


Variable Name 

Card Columns 

[OCQOOO 00011 111111 112 2222222 22 3(33 3 333 3^34 4444444445555555555 6)66 666 66 6677 7777777781 
j 12345 6789012 345 6 78 90123456 789012345 67 89012 3456 789012 3456 7 890 123456 789012 3456 7 890 


+0 . 12 5768D4-01 


-0, 37225D+05 


-Example 


Figure E.3. Coefficient Card for G.C.D. - Newton's Method 
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Variable Name 
Card Columns 


000000000111111111122222222223333333333444 
12 3456 7 89012 345 6 7 89012 3456 7 890 L2 3456 7 89012 


+0 . 15IH-01 



>6666666677777777778 

.2345678901234567890 


■ Example 


Figure E.4. Initial Approximation Card for G.C.D. - Newton 1 s Method 


Variable Name 
Card Columns 


000000000111111111122222222223333333333444444444455555555556666666666777777777 

123456789012345678901234567890123456789012345678901234567890123456789012345678' 


I 


Example 


Figure E . 5 . End Card for G.C.D. - Newton* s. Method 







TABLE E. VI 


VARIABLES USED IN G.C.D. - NEWTON ' S METHOD 


Single Precision Double Precision Disposition 

Variable Type Variable Type of Argument Description 

Main Program 


J 

I 

J 

I 

ITIME 

I 

ITIME 

I 

N0P0LY 

I 

N0P0LY 

I 

NP 

I 

NP 

I 

P 

c 

UP, VP 

D 

NAPP 

i 

NAPP 

I 

EPS1 

R 

EPS1 

D 

EPS2 

R 

EPS2 

D 

EPS 3 

R 

EPS 3 

D 

MAX 

I 

MAX 

I 

101 

I 

101 

I 

102 

I 

102 

I 

KCHECK 

I 

KCHECK 

I 

APP 

C 

UAPP , VAPP 

D 

XSTART 

R 

XSTART 

D 

XEND 

R 

XEND 

D 

ANAME 

A 

ANAME 

A 

ROOT 

C 

UROOT , VR00T 

D 

MULT 

I 

MULT 

I 

DP 

C 

UDP , VDP 

D 

NDP 

I 

NDP 

I 

D 

c 

UD , VD 

D 

ND 

I 

ND 

I 

Q 

c 

UQ,VQ 

D 


Number of distinct roots found 

Program control 

Number of the polynomial 

Degree of the original polynomial 

Array of coefficients of original polynomial, P(X) 

Number of initial approximation to be read 

Tolerance check for zero (0) in Subroutine GCD 

Tolerance check for convergence 

Tolerance check for zero (0) in Subroutine QUAD 

Maximum number of iterations permitted 

Unit number of input device 

Unit number of output device 

Program control, KCHECK = 1 implies stop execution 
Array of initial approximations 
Magnitude at which to start search for roots 
Magnitude at which to end search for roots 
Contains name of method used "NEWTONS” 

Array of roots found 
Array of multiplicities 

Array containing coefficients of the derivative, (P* (X)) , 
of P(X) 

Degree of the derivative of original polynomial 
Array of coefficients of the greatest common divisor of 
F (X) and P 1 (X) 

Degree of g.c.d. of P(X) and p'(X) 

Array of coefficients of quotient polynomial P(X) /g.c.d. 
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TABLE E. VI (Continued) 


Single Precision 

Double Precision 

Disposition 


Variable 

T yp e 

Variable 

T yp e 

of Argument 

Description 

NQ 

I 

NQ 

I 


Degree of quotient polynomial Q(X) 

ZRO 

C 

UZRO,VZRO 

D 


Value at which to evaluate or deflate polynomial 

DUMMY 

C 

UDUMMY ,VDUMMY D 


Dummy variable 

QQ 

c 

UQQ,VQQ 

D 


Working array of coefficients of current polynomial 

NQQ 

I 

NQQ 

I 


Degree of current polynomial, QQ(X) 

IALTER 

■ I 

IALTER 

I 


Number of alterations of an initial approximation 

CONV 

L 

CONV 

L 


CONV =* TRUE implies convergence to a root 

EPS4 

R 

EPS4 

D 


Tolerance for checking multiplicities 

AP 

C 

UAP , VAP 

D 


Array of approximations (initial or altered) producing 
convergence 

QD 

C 

UQD,VQD 

D 


Array of coefficients of newly deflated polynomial 

JAP 

I 

JAP 

I 


Number of distinct roots found by iterative process 
i.e. not as a result of Subroutine QUAD 

J1 

I 

J1 

I 


Number of distinct roots found in the attempt to improve 
roots 

ROOTS 

c 

UROOTS ,VROOTS 

D 


Array of improved roots 

NEWT 

L 

NEWT 

L 

Program control. NEWT = TRUE implies that Newton's 
method was used instead of Subroutine QUAD 

Subroutine NEWTON 

X 

C 

UX,VX 

D 

E 

Starting approximation (initial or altered) 

N 

I 

N 

I 

E 

Degree of current polynomial 

P 

c 

UP, VP 

D 

E 

Array of coefficients of current polynomial 

MAX 

I 

MAX 

I 

C 

Maximum number of iterations 

EPSLON 

R 

EPSLON 

D 

C 

Tolerance for checking convergence 

xo 

C 

UX0,VX0 

D 

R 

Current approximation to root 

B 

c 

UB,VB 

D 


Array of coefficients of newly deflated polynomial 

DPXO 

c 

UDPXO , VDPXO 

D 


Derivative of the polynomial at XO 
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TABLE E.VI (Continued) 


Single Precision 

Double Precision 

Disposition 


Variable 

T yP e 

Variable 

Type 

of Argument 

Description 

DIFF 

C 

UDIFF jVDIFF 

D 


PXO/DPXO 

PXO 

c 

UPXO ,VPX0 

• D 


Value of polynomial at XO 

CONV 

L 

CONV 

L 

R 

CONV = TRUE implies convergence to root 





Subroutine HORNER 

X 

C 

UX,VX 

D 

E 

Value at which to evaluate or deflate polynomial 

N 

I 

N 

I 

E 

Degree of polynomial 

P 

c 

UP, VP 

. D 


Array of coefficients of polynomial 

C 

c 

UC,VC 

D 

R 

Updated at each iteration to yield derivative of poly- 






nomial at X 

B 

c 

UB,VB 

D 


Array of coefficients of newly deflated polynomial 





Subroutine QUAD 

N 

I 

N 

r 

E 

Degree of polynomial to be solved 

A 

c 

UA, VA 

D 

E 

Array of coefficients of polynomial to be solved 

J 

I 

J 

i 

ECR 

Number of distinct roots found of original polynomial 






(J = -1 implies original polynomial is of degree 2 or 

ROOT 

c 

UROOT,VROOT 

D 

ECR 

Array of roots found 

MOLT 

I 

MULT 

I 

ECR 

Array of multiplicities 

DISC 

c 

UDISC, VDISC 

D 


Discriminate of quadratic 

TEMP 

c 

UTEMP , VTEMP 

D 


/DISC 

EPSLON 

R 

EPSLON 

D 

C 

Tolerance for zero (0) 

D 

C 

UD,VD 

D 


Twice leading coefficient of quadratic 



TABLE E.VX (Continued) 


Single Precision 

Double Precision 

Variable 

Type 

Variable 

Type 

R 

C 

UR, VR 

D 

S 

C 

US, VS 

D 

N 

I 

N 

I 

M 

I 

M 

I 

RR 

c 

URR,VRR 

D 

SS 

c 

USS,VSS 

D 

N1 

I 

N1 

I 

Ml 

I 

Ml 

I 

D 

c 

UD ,VD 

D 

T 

c 

UT ,VT 

D 

K 

I 

K 

I 

EPSLON 

R 

EPSLON 

D 


N 

r 

N 

I 

P 

C 

UP, VP 

D 

J 

I 

J 

r 

ROOT 

C 

UROOT ,VROOT 

D 

A 

c 

UA, VA 

D 

M 

I 

M 

I 

MULT 

I 

MULT 

I 

102 

I 

102 

I 

B 

c 

UB , VB 

D 

C 

c 

uc,vc 

D 

EPSLON 

R 

EPSLON 

D 


Disposition 

of Argument Description 

Subroutine GCD 

E Array of coefficients of original polynomial, P(X} 

E Array of coefficients of derivative polynomial, P (X) 

E Degree of original polynomial, P (X) 

E Degree of derivative polynomial, P'(X) 

Array of coefficients of dividend polynomial 
R Array of coefficients of divisor polynomial also array 

of coefficients of g.c.d. of P(X) and P'(X) when 
returned 

Degree of dividend polynomial, RR(X) 

R Degree of divisor polynomial, SS(X) , also degree of 

g.c.d. of P(X) and P*(X) when returned 
Quotient R% 1 + 1 ^ SS M 1+1 

Array of coefficients of difference polynomial (RR - D(SS)) 
Degree of difference polynomial T(X) 

C Tolerance check for zero (0) 

Subroutine MULTI 

E Degree of original polynomial, P(X) 

E Array of coefficients of original polynomial, P (X) 

E Number of distinct roots of P(X) 

E Array of distinct roots of P (X) 

Working array of coefficients of current polynomial 
Degree of current polynomial, A(X) 

R Array of multiplicities of the roots 

C Unit number of output device 

Array of coefficients of newly deflated polynomial 
Derivative of polynomial at ROOT-^ 

C Tolerance for checking multiplicities 
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TABLE E.VI (Continued) 


Single Precision 

Doubel Precision 

Disposition 


Variable 

Type 

Variable . 

T ype 

of Argument 

Description 






Subroutine DERIV 

N 

I 

N 

I 

E 


Degree of polynomial, P(X) 

P 

C 

UP, VP 

D 

E 


Array of coefficients of polynomial, P(X) 

A 

C 

UA,VA 

D 

R 


Array of coefficients of derivative, P* (X) 

M 

1 

M 

I 

R 


Degree of derivative polynomial, P’(X) 






Subroutine DIVIDE 

P 

c 

UP, VP 

D 

E 


Array of coefficients of dividend polynomial 

N 

I 

N 

I 

E 


Degree of dividend polynomial 

D 

c 

UD, VD 

D 

E 


Array of coefficients of divisor polynomial 

M 

I 

M 

I 

E 


Degree of divisor polynomial 

Q 

c 

UQ.VQ 

D 

R 


Array of coefficients of quotient polynomial P(X)/D(X) 

K 

I 

K 

I 

R 


Degree of quotient polynomial, Q(X) 

J 

I . 

J 

I 



Counter 

TERM 

c 

UTERMjVTERM 

D 



Dummy variable used for temporary storage of products 

KK 

I 

KK 

I 



Number of coefficients of quotient polynomial, Q(X) 






Subroutine GENAPP 

APP 

c 

APPR,APPI 

D 

R 


Array containing initial approximations 

NAPP 

I 

NAPP 

I 

E 


Number of initial approximations to be generated 

X START 

R 

XSTART 

D 

ECR 

Magnitude at which to begin generating approximations; 







also magnitude of the approximation being generated 

BETA 

R 

BETA 

D 



Argument of complex approximation being generated 

U 

R 

APPR(I) 

D 



Real part of complex approximation 

V 

R 

APPI(I) 

D 



Imaginary part of complex approximation 


186 



TABLE E. VI (Continued) 



Single Precision Double Precision Disposition 

Variable Type Variable Type of Argument 

Subroutine ALTER 


Description 


XOLD 

C 

XOLDR, XOLDI 

D 

NALTER 

I 

NALTER 

I 

I TIME 

I 

I TIME 

I 

MAX 

I 

MAX 

I 

Y 

R 

XOLDI 

D 

X 

R 

XOLDR 

D 

R 

R 

ABXOLD 

D 

BETA 

R 

BETA 

D 

XOLDR 

R 

XOLDR 

D 

XOLDI 

R 

XOLDI 

D 

102 

I 

102 

I 


UX,VX 

D 

UY,VY 

D 


ECR Old approximation to be altered to new approximation 

ECR Number of alterations performed on an initial approximation 

E Program control 

C Maximum number of iterations permitted 

Imaginary part of original initial approximation 
(unaltered) 

Real part of original, unaltered initial approximation 
Magnitude of original unaltered initial approximation 
Argument of new approximation 
Real part of new approximation 
Imaginary part of new approximation 
C Unit number of output device 


Subroutine COMSQT 

E Complex number for which the square root is desired 

R Square root of the complex number 
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4. Description of Program Output 

The output from G.C.D. - Newton’s method consists of the following 
information. 

The heading is "GREATEST COMMON DIVISOR METHOD USED WITH NEWTON’S 
METHOD TO FIND ZEROS OF POLYNOMIALS NUMBER XX." XX represents the number 
of the polynomial. 

As an aid to ensure that the control information is correct, the 
number of initial approximations given, maximum number of iterations, 
test for zero in subroutine GCD, test for convergence, test for zero in 
subroutine QUAD, test for multiplicities, radius to start search, and 
radius to end search are printed as read from the control card. 

The coefficients of the polynomial are printed under the heading 
"THE DEGREE OF P (X) IS XX THE COEFFICIENTS ARE." XX represents the 
degree of the polynomial. The coefficient of the highest degree term 
is printed first. 

The polynomial obtained after dividing the original polynomial, 

P(X), by the greatest common divisor of P(X) and its derivative, P ’ (X) , 
is printed under the heading "Q(X) IS THE POLYNOMIAL WHICH HAS AS ITS 
ROOTS THE DISTINCT ROOTS OF P (X) . THE DEGREE OF Q(X) IS XX THE 
COEFFICIENTS ARE/' XX represents the degree of this polynomial. This 
polynomial contains all distinct roots and is solved by Newton's 
method. The coefficient of the highest degree term is printed first; 
that is, the leading coefficient is printed first. 

The zeros found before the attempt to improve accuracy are printed 
under the heading "ROOTS OF Q(X)." 

The initial approximation producing convergence to a root is 
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printed to the right of the corresponding root and headed by "INITIAL 
APPROXIMATION." The initial approximations may be those supplied by 
the user, or generated by the program or a combination of both. The 
message "RESULTS OF SUBROUTINE QUAD" indicates that the corresponding 
root was obtained by subroutine QUAD. See Appendix D, § 5. 

The zeros found after the attempt to improve accuracy are printed 
under the heading "ROOTS OF P(X)." The corresponding initial approxima- 
tion producing convergence is printed as described above. 

The multiplicity of each zero is given under the title 
"MULTIPLICITIES." 


5. Informative Messages and Error Messages 

The output may contain informative or error messages. These are 
intended as an aid to the user and are described as follows. 

If not all roots of a polynomial were found before the attempt 
to improve accuracy, the remaining unsolved polynomial will be 
printed, with the leading coefficient first, under the heading 
"COEFFICIENTS OF DEFLATED POLYNOMIAL FOR WHICH NO ZEROS WERE FOUND." 

See Appendix D, 5 6. 

"NO ROOTS FOR INITIAL APPROXIMATION ROOT XX = YYY. " This message 
is printed if a root fails to produce convergence when trying to improve 
accuracy. XX represents the number of the root and YYY represents the 
value of the root before the attempt to improve accuracy. 

"NO ROOTS FOR THE POLYNOMIAL Q(X) OF DEGREE XX WITH GENERATED 
INITIAL APPROXIMATIONS." XX represents the degree of the polynomial 
Q(X)» This message is printed if none of the roots produce convergence 
in the attempt. to improve accuracy. 
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"THE EPSILON (XXX) CHECK IN SUBROUTINE MULTI INDICATES THAT ROOT' 
YY - ZZZ IS NOT CLOSE. ENOUGH TO BE A TRUE ROOT. IT IS PRINTED BELOW 
WITH MULTIPLICITY 0." XXX represents the multiplicity requirement 
(EPS4 on the control card), YY represents the number of the root, and 
ZZZ represents the value of the root after the attempt to improve 
accuracy. The message indicates that this root does not meet the 
requirement for multiplicities. It is, however, usually a good 
approximation to the true root since convergence was obtained both 
before and after the attempt to improve accuracy. 
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MAIN PROGRAM 



Figure E.6. Flow Charts for G. C.D. -Newton ' s Method 
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Figure E.6. (Continued) 
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Figure E.6. (Continued) 
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■ Figure E.6. (Continued) 
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GENRPP . . ' 'K FILTER 





Figure E.6. (Continued) 
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TABLE E.VII 

PROGRAM FOR G. C.D. -NEWTON' S METHOD 


0001 


0002 

0003 

0004 


0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 
002 5 
0026 

0027 

0028 

0029 

0030 
00 31 

0032 

0033 

0034 

0035 

0036 
00 3 7 
00 39 
00 39 


C ********************** ******************,***,*************************«,****** 

c * 

C * DOUBLE PRECISION PROGRAM FOR G.C.D. - NEWTON * S HETHOO 

C * 

c * 

C * THE G.C.O, METHOD EXTRACTS THE ZEROS AND THEIR MULTIPLICITIES OF A 

C * POLYNOMIAL OF MAXIMUM DECREE 25. ALL MULTIPLE ROOTS ARE REMOVED BY 

C * DIVIDING THE POLYNOMIAL BY THE GREATEST COMMON DIVISOR OF THE POLYNOMIAL 

C * AND ITS DERIVATIVE. THE ZEROS OF THE RESULTING POLYNOMIAL ARE EXTRACTED 

C * AND THEIR MULTIPLICITIES DETERMINED. 

C * 

c ******************************************************* ******** ************ 

DOUBLE PRECISION UP, V P , U APP , V APP , UR OOT , VROOT , UDP, VDP , UD, VO , UZRO , VZ 
lRO,U0, VQ,UOUMNY,VDUMMY,UQQ, VQQ, U AP , V AP , !JQO , VOO , UROOT S , VROOT S , EP S l , 
2EPS2,EPS3,EPS4 
DOUBLE PRECISION XSTART 
OOUBLE PRECISION XEND 

DIMENSION UP 125) ,VP(26),UAPPI25),VAPP125) .UROOTI2 5) , VROOT ( 2 5 > , MULT 
l(25)«UDP!26),VDP!26)»UD(26)»VD(26)»UQ(26) » VQ( 26) , UQQ 126), VQQ ( 26 ) , U 
2API25) ,VAP(25) , U QD ( 2 6 ) ,VQ0<26) , ANAMEI2) .ENTRY (26) t UROOT S < 25 1, VROOT 
35125) 

COMMON EPS1, EPS2 ,EPS3,£PS4, 102, MAX 
LOGICAL NEWT »CON V 

OAT A PNAME.ONAME , QQNAME/ 2HP! ,2HQI ,3HOOl / 

DATA ENTRY / l HI , 1 H2 , l H3 , 1 H4, 1 H5, 1H6, 1H7, 1H6, IH9, 2H10, 2H1 1 , 2H 12, 2H 13 
l, 2H14.2H15. 2H16, 2H17, 2H18, 2H19,2H20,2H21,2H22,2H23,2H24,2H25,2H26/ 

OATA A NAME! l),ANAME(2) /4HN EWT , 4H0N S / 

101=5 
I 02*6 
10 J=0 

I T I ME=0 

READ! 101, 1000) NOPOL Y , NP ,N APP , MAX , EPS L , E PS2 , £PS3 , EP S4 , X ST ART , X£NO , 

IXCHECK 

1 F I KCHECK . EG . 1 ) STOP 

WRITE 1 102, 10 201 ANAMEI 1 ) , ANAME1 2 1 .NOPOLY 

WRI T£ I 102 ,2000 ) NAPP 

WRITE! 102, 20 10) MAX 

WRITE! 102,2070) EPS1 

WRITE t 102,2020) EPS2 

WRITE! 102,2080) E PS3 

WRITE! 102,2030 ) EPS4 

WP I TE! 102 ,2040) XSTART 

WRITE! 102,2050) XEND 

WRITE! 102 ,2060 ) 

KKX = NP+ 1 
NNN= XKK l 
DO 20 1=1 ,KKK 
JJJ=NNN-I 

20 READ! 101, 1010) UP! J JJ ) , VP( JJ J ) 

I F ( NAPP. NE » 0 ) GO TO 22 
NAPPaNP 

CALL GEN APP !UAPP,VAPP, NAPP, XSTART) 

GO TO 23 

22 READ! 101 , 1015) ( UAPP ! 1 ) , V APP (I ) , I =1 , NAPP ) 

23 WRITE! 102, 1030 ) NP 
KKK= NP* 1 

NNN = KKK> 1 
DO 25 1 = 1 , KK.K 
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0040 


JJJ*RNN-1 

0041 

25 

WAITE! 102,1040) PNAHE, ENTRY! JJ J 1 ,UP( 9 JJl , VPl JJJ 1 

0042 


lftNP.GE.3J GO TO 30 

0043 


J=-l 

0044 


CALL QUAD1NP » UP ,VP , J ,UROOT» VRDOT i HULT J 

004$ 


WRITE! 102*1070) 

0046 


WRITE 1102, 11651 (I .UROOTl 1) * VROOTI 1 1 ,HULT« 1 1 , 1*1 ,4 1 

0047 


GO TO 10 

0046 

30 

CALt 0ER1 VI NP,UP,VP,NOP,UOP,VOP 1 

0049 


CALL GCOlNPfUP* VP,NDP*U0P,V0P ,ND,UD, V0) 

0050 


IFINO.GT.il GO TO 70 

0051 


IF4N0.EQ.0t GO TO 65 

0952 


UDUNMY 3 i UOI 2)*UD( 21 ) +( VD 1 2)*VD4 2)1 

0053 


UZRO= l-100m*UDl 2) 1-lVOt 11*V0I 21 > J/UOOHHV 

0054 


VZRO« (-1 UO 12 l*VOI 1 ) )♦! U04 1 )*V0! 2)1 l/UDUNHV 

0055 


CALL HORNER<UZRO*V2RO,NP»UP,VP,UQ,VQ,UOUMMY*VOUHMY) 

0056 


NO“NP-l 

0057 


00 60 1=1, NP 

0058 


uom-uoti+i) 

0059 

60 

VQl I )= VO! I+l ) 

0060 


GO TO 80 

0061 

65 

KKK=NP»1 

0062 


00 6b 1=1, KKK 

0063 


UQin=UPH) 

0064 

66 

voii)=vpiii 

0065 


NQ=NP 

0066 


GO TO ao 

0067 

70 

CALL DIVIOE (NP,UP,VP,NO, UO,VD,NQ,UQ,VQ) 

0068 

80 

WRITE! 102,1120) NQ 

0069 


KKK = NQM 

0070 


NNN=KKK+1 

0071 


DO 83 1=1, KKK 

0072 


JJ J=NNN- 1 

0073 

83 

WRITE 1102, 1040) QNAME, ENT AY1 J JJ ) ,UQ< JJJ) , VQl JJJ ) 

0074 


1F1NQ.GE.3) GO TO 85 

0075 


GO TO 110 

0076 

35 

KKK=NQ*l 

0077 


00 90 I = 1 »KKK 

0076 


UQQU)>UQ(I) 

0079 

90 

VQQ 1 I ) = VQ( 1 1 

0080 


NQQ=NQ 

0081 


GO TO 120 

0082 

110 

CALL QUAD! NQ,UQ* VQ, J ,UROOT , VAQQT , HULT t 

0083 


NEWT 3 . FALSE. 

0084 


GO TO 310 

0085 

120 

OO 200 I *1 *NAPP 

0086 


1 At TER 3 0 

0087 

130 

CALL NEWTONlUAPPl I ) ,VAPP< I ),NQQ,UQQ,VQQ,U£AO,VZRO,CONV! 

0088 


IF1C0NV) GO TO 160 

00B9 


CALL ALTEAlUAPPt I ) ,VAPP1 I ) , l ALTER , 1 T JHE) 

0090 


IF ( I ALTER, GT .5 ) GO TO 200 

0091 


GD TO 130 

0092 

160 

J = J*l 

0093 


UROOTl JI=UZRO 

0094 


VROOTI J)=VZRO 

0095 


UAP ( J )=UAPP 1 I ) 

0096 


VAP ( Jl »VAPP1I> 

0097 


CALL HORNER 1UZR0, VZRO,NQQ,UQQ, VQQ, UQD, VQD,UDUMHV,VDUNNYI 
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TABLE. E. VII (Continued) 


0098 

0099 

0100 

0101 
0102 

0103 

0104 

0105 

0106 
010T 
0108 

0109 

0110 
oiu 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 
01 37 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 


DO 1B0 I 1 = 1 1 NQQ 
UQQt III *UQDf 114-11 
180 VQQl 1 1 > = VQO ( 11+11 
NQQ=NQQ- 1 

1F1N0Q.LT.3I GO TO 220 
200 CONTINUE 

1FU.GE.NQI GO TO 205 
IF1XEND.EQ.0.0) GO TO 205 
|Ft XSTART.GT .XENO) GO TO 205 
NAPP=NQ 

CALL GENAPP1UAPP|VAPP*NAPP»XSTART ) 

GO TO 120 

205 IF( NQQ.LE .2 1 GO TO 210 
WRITEI 102.12001 
KKK=NQQ* 1 
NNN=KKK*1 
00 157 L=1»KKK 
J JJ=NNN-L 

157 MRI TE 1 102. 1 100 1 QQNAHE , ENT RY I J JJ I ,UQQf J J J I ,VQQ 14 J J ) 

210 IFtJ.EQ.Ol GO TO 10 
JAP= J 
GO TO 230 
220 JAP = J 

CALL QU AOINQQiUQQ»VQQi JtUROOTt VROOT. HULTI 
230 HRITEt 102.11321 

WRITE! 102. 1 1 33 ) I 1 * UROOT 1 1 l.VROOTIM »UAP ( i >, VAP1 H , I»l » JAP) 
1F1JAP.LT.J) GO TO 235 
GO TO 240 
235 KKK® JAP+1 

WRITE! 102,11341 1 1 , UROOT 1 1 1, VRQOT 1 1 1 « [=KKK, J 1 

240 Jl»0 

00 300 1=1, J 

CALL NEWTQN1UR0QT1 1 ) .VROQTl 1 1 ,NQ,UQ,VQ»UZRO t VZRO,CQNV) 
1F1C0NV) GO TO 280 

WRITE! 102*11401 I *UROOT ill tVROOT 1 1 1 
1F11.LT.JAP> GO TO 241 
IF! I.EQ.JAPI GO TO 250 
GO TO 300 

241 KKK=JAP-l 

DO 245 1 1= I * KKK 
UAPt!ll=UAPt 11*11 
245 VAP! il)=VAP( 11*1) 

250 JAP=JAP-1 
GO TO 300 
280 J1=J1+1 

UROOT S ! J 1 t=U2R0 
YRO0TS1 JH=V2RQ 
300 CONTINUE 

IF(Jl.EQ.O) GO TO 305 
J = J1 

DO 303 I=lfJ 
UROOT 1I)=UR00TS II) 

303 VRaOTin=VROOTS(!l 
GO TO 307 

305 WRITE! 102.1150) NQ 
KKK«NQ+1 
NNN=KKK* 1 
00 306 L=l *KKK 
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^0156 

0157 

0158 

0159 

0160 
0161 
0162 
0163 
0166 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 


0176 

0175 

0176 

0177 

0178 

0179 


0180 

0181 
0 1 82 

0183 

0186 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 
0196 

0195 

0196 

0197 

0198 


JJJ=NNN-L 

306 WRITE! 102,10601 QNAM6 , ENTRY I J J J > ,UQ! JJ J) , VQI JJJ I 
GO TQ 10 

307 NEWT=. TRUE. 

310 CALL MULT l!NP, UP « VP, J »UROOT* VROOT .MULTI 
IF ( NEWT i GO TQ 330 
WRITE! 102,10701 

WRITE! 102*11651 t LtUROOT (L I .VROOT! L ) .HULT1 L ! ,L S 1 , J) 

GO TO 10 

330 WRITE! 102,11801 

WRITE! 102,1190) IL ,UROOT |L I , VROOT (L ) , MULTI L) ,UAPI L 1 , VAPID »L»l, JAP 
1) 

KKK«JAPFl 

IF! JAP.LT. J) WRITEII02, 11651 IL.UR0OTCL! > VROOT(L) , MULT I LI ,L»KKK, J) 
GO TO 10 

1000 FORMAT! 3! I 2, IX), 9X, 1 3, IX , 6106.0, IX) , 13X, 2(07.0, IX ) , 1 1 ) 

1010 FORMAT (2030.0) 

1015 FORMAT! 2030. 0! 

1020 FORMAT! 1H1, 10X.61HGREATEST COMMON DIVISOR METHOD USED WITH ,2!A6), 
135HMETHOD TO FIND ZEROS OF POLYNOMIAL S/l 1 X, 18HP0LYN0M J AL NUMBER ,1 
22///I 

1030 FORMAT !1X,22HTHE DEGREE OF P(X) IS ,12,22H THE COEFFICIENTS ARE// 
l) 

1060 FORMAT (2X,A2«A2, 6H) = ,023.16,3H f .023.16.2H I) 

1070 FORMAT I///1X.I 3HR00TS OF P I X 1 , 52X» 14HMULTI PL IC I TI ES//I 
1080 FORMAT ! 2X, 5HROOT ( , 1 2 ,6H) = ,023.16,3H * ,D23.16,2H 1,10X,I2) 

1100 FORMAT !2X,A3,A2, 6H) * .023.16.3H F ,023.16,2H I) 

1120 FORMAT!/// IX, T3HQI X) IS THE POLYNOMIAL WHICH HAS AS ITS ROOTS THE 
10ISTTNCT ROOTS OF Pi X)./1X,22HTHE OEGREE OF QIXI IS ,I2.22H THE C 
20EFF ICIENTS ARE//) 

1200 FORMAT (///IX, 70HC0EFF 1C I ENTS QF THE DEFLATED POLYNOMIAL FOR WHICH 
INO ZEROS WERE FOUND.//) 

1132 FORMAT I///1X.I 3HROOT S OF Q(X),84X, 21HINIT1AL APPROXIMATION//) 

1133 FORMAT ! 2X, 5HR0QT ! .12 ,6H) * ,D23.16,3H F .023.16.2H 1 , 17X.023.16.3H 
1 F .D23.16.2H l) 

1136 FORMAT 1 2 X , 5HRQQT ( , 12 ,6H) = ,D23.16.3H ♦ .023.l6.2H I , 20X, 26HRE SULT 
IS OF SUBROUTINE QUAD) 

1160 FORMAT!///, IX, 60HN0 ROOTS FOR INITIAL APPROXIMATION R00T(,I2 t 6H) ■ 
1 .D23.1&.3H F .D23.16.2H I) 

1150 FORMAT!///, IX, 65HN0 ROOTS FOR THE POLYNOMIAL Q!X) OF OEGREE =* ,12, 
138H WITH GENERATED INITIAL APPROXIMATIONS//! 

1165 FORMAT 1 2X, 5HR0QT 1,12 ,6H) * .023.16. 3H ♦ , 023.16, 2H 1 , 7X, 1 2, 10X, 26H 
IRE SULT S OF SUBROUTINE QUADI 

1180 FORMAT! ///IX ,13H ROOTS OF P(X1,52X. 16HMULTIPL (CITIES, 17X.21HINITIAL 
1 APPROXIMATION// I 

1190 FORMAT! 2X,5HRDOT (, 12. 6H) « ,023.16.3H F ,D23.16,2H 1 , 7X , 1 2,7X,Q23. 
116, 3H F ,023.16, 2H !) 

2000 FORMAT! IX, 41HNUM8ER QF INITIAL APPROXIMATIONS GIVEN. ,121 
2010 FORMAT! IX, 29HMAXIMUM NUMBER OF ITERATIONS • »UX, I 3) 

2020 FORMAT! IX, 21 HTEST FOR CONVERGENCE., 13X, 09. 21 
2030 FORMAT! IX, 24HTEST FOR MULTI PLIC I T (ES. ,IOX,09. 2) 

2040 FORMAT I IX, 23HR AD XUS TO START SEARCH. , 1 IX ,09. 2) 

2050 FORMAT! IX, 21HRA0IUS TO END SEARCH. , 13X ,09 . 2 ) 

2060 FORMAT! //IX ) 

2070 FORMAT! IX, 34HTEST FOR ZERO IN SUBROUTINE GCO. ,09.2) 

2080 FORMAT! IX, 34HTEST FOR ZERO IN SUBROUTINE QUAD. ,09.2! 

END 
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TABLE E.VIX (Continued) 


*0001 


0002 
0003 
000 V 

0005 

0006 
0007 

oooe 

0009 

0010 
00 u 
0012 
0013 


SUBROUTINE GENAPP TAP PR , APP I ( NAPP, XSTARD 
C *************************************************************************** 
C * 

C * SUBROUTINE GENAPP GENERATES N INITIAL APPROXIMATIONS* WHERE N IS THE 
C * DEGREE OP THE ORIGINAL POLYNOMIAL. > 

C •* 

c *************************************************************************** 

DOUBLE PRECISION APPR, APP l* X START, BETA, EPS l . EPS2, EPS3,EPSA 

DIMENSION APPR<251*APPII25I 
COMMON EPS1 * EPS2 » EPS3* EPSA* 102 * MAX 
IP I XSTART. EQ.0.0 I XSTART=0.5 
8ETA=0. 26L799A 
00 10 1= l » NAPP 
APPR 1 1 1 * XSTART*OCOSI BETA1 
APPI1H»XSTART*0S INI BETA! 

BETA=BETA*0. 5235986 
10 X $TART= XSTART* 0. 3 

RETURN ' 

END 
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TABLE E. VII (Continued) 


0001 


0002 

0003 

000 * 

0005 

0006 
000T 
0006 
0000 
0010 
0011 
0012 
0013 
001* 

0015 

0016 
001 ? 
0018 

0019 

0020 
0021 
002 2 
0023 
002 * 

0025 

0026 


SUBROUTINE ALTER ( XOL DR , XOLOI »NALTER» I TIME l 

q ******************************************************* *****************' 

C * 

C * SUBROUTINE ALTER ALTERS THE INITIAL APPRQXIMAT IONS WHICH PRODUCE NO 

C • CONVERGENCE TO A ZERO. THIS IS DONE A MAXIMUM Of 5 TIMES FOR EACH ROOT. 

C * 

C *************************************************************************** 

DOUBLE PRECISION XOLOR , XOLOI , ABXOLO. BETA , EPS l ,EPS2,£PS3,EPS4 
COMMON EPS! , EPS 2, EPS3.EPS*, 102, MAX 
IFUT iME.NE.O) GO TO 5 
1 T I ME -1 

WRITE! 102,10101 MAX 
5 I F( NALTEft .EQ.O 1 GO TO 10 
WRITEU02, 10001 XOLDR,XOLDI 
GO TO 20 

10 ABXOLO* DSQRT 1 I XQL DR* XQL DR ) *! XQLD I*XOLOI 1 1 
BETA=DATAN2f XOLDI , XQL DR J 
WRITE! 102, 1020) XOLOR, XOLOI 
20 NALTER=NALTER*1 

IFtNALTER.GT.51 RETURN 
GO TO (30, *0,30,40, 301, NALTER 
30 XOLOR*“XOLDR 
XOLDI=-XOLOI 
GO TO 50 

*0 BETA=B£TA*l. 0*71976 

XOLDR=ABXDLO*DCOS! BETA! y 

XQLD 1= ABXQL D*DS IN! BETA I 
50 RETURN 

1000 FORMAT I IX, 023. 16, 3H ♦ ,023.16,2H 1 ,10X,2 1HALTERE0 APPROXIMATION! 

1010 FORMAT t ///IX ,5*HNQ CONVERGENCE FOR THE FOLLOWING APPROXIMATIONS AF 
ITER ,13, 12H ITERATIONS.//! 

1020 FORMAT C/iX, 023. 16, 3H ♦ ,023.16.2H I , LOX , 2 IMI N I TI AL APPROXIMATION) 

END 
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0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 
0314 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
00 2 3 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 


TABLE E.VII (Continued) 


SUBROUTINE GCDIN ,UR , VR, M.US , VS , Ml ,USS ,VSS) 

C ********** ******** **** *********** ********************* ***m****************i 
C * 

C * GIVEN POLYNOMIALS PI XI ANO DPIX1 WHERE OEG. OP(X) IS LESS THAN DEG. 

C * P(X», SUBROUTINE GCD COMPUTES THE GREATEST COMMON DIVISOR OF P|X) ANO 

C * DPI X I . 

C * 

c ****************** *********************************************************I 

DOUBLE PRECISION USS S$S. VSSSSS 

DOUBLE PRECISION UR , VR ,US, VS.USS , VSS ,URR, VRR ,UD, VO.UT , VT* 6PSLON*EP 
1S2.EPS3.EPS4.BBB 

DIMENSION URI26J » VR I 26 1 . US < 26 I , VS I 26 ) ,US S I 26 ) , VSS< 26 1 , URRI 2 6 » , VRRI 
126l,UT(26|.vr(26) 

COMMON EPSLON.EPS2. EPS3, EPS4, 102, MAX 
N1=N 
M1*M 
KKK=N*1 
DO 20 1=1, KKK 
URR I I ) =UR { I I 
20 VRRUI = V«m 
KKK»M*I 
DO 25 I-l.KKK 
USSU )=US(II 
25 VSS I I I “VS I 1 1 

30 B9B = USS( Ml*U*USS(Ml*U*VSSIMl*l)*VSS|Ml*n 

UD»IURR(Nl*lMUSSIMl*n*VRRINl*lJ*VSSIMl*III/BBB 
VO=IUSSI Ml*l l*VRRlNl4il-URR(NI*ll*VSSIMl*lH/SB8 
KKK»N1*1-M1 
DO 40 I=KKK,Nl 

UTI I >=URR(I » -|UO*USSI I-Nl+Ml >-VO*VSS ( I-Ni *M II) 

40 VTI I >=VRR(I»-(UD*VSSI I-Nl+Nl)*VO*USSU-Nl*Mll | 

IF( Ml .EQ.N1 I GO TO 70 
KKK=N1-M1 
DO 60 1=1, KKK 
UTUI-URRII) 

60 VTm = VRRIII 
70 DO 90 1=1, Nl 

6BB = DS0RT(UT<Nl*l-I )*UTINl*l-I I ♦ VTI N 1 *1- II *VT ( N 1* 1- 1 1 1 
IF(BBB.GT.EPSLQN) GO TO 100 
90 CONTINUE 

DO 95 1=1, Ml 

B0B = USSI Ml*ll*US$(Ml*l I* VSSIM1*1I*VSSIH1*1 I 
USSSSS=IUSSI I)*USSIMl*U*VSS< I I*VSS(H1*1M /BBB 
vsssss* i vssm*uss(Mi+u-ussm*vss(Mi+ii i/bbb 
USS( I > = usssss 
95 VSSl l l«VSSSSS 
USS ( Ml * 1 ) =| . 0 
VSS|M1*1)=0.0 
GO TO 200 
100 K=N1-I 

1 F( K.EO.O I GO TO 170 
IFIK.LT.MII GO TO 140 
KKK=K* 1 

00 130 J=1,KKK 
URR < j| =UT ( J I 
130 VRR 1 31 =VT (31 
N1»K 

GO TO 30 
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0050 

140 

KKKbK+1 

0051 


00 150 J«1«KKK 

0052 


URRUl«U$$m 

0053 


VRR1 j»=vssm 

0054 


US$1 J1-UT1 J) 

0055 

150 

VS5I J)=VT(J) 

0056 


KKK*K+2 

005? 


NNN=H1*1 

0058 


DO 160 J«KKK,NNN 

0055 


UftRUl*USS( Jl 

0060 

160 

VRRC Jl-VSSi J» 

0061 


Nl»Ml 

0062 


H1=K 

0063 


GO TO 30 

0064 

170 

ussm-uo 

0065 


VSS<1)*0.0 

0066 


Mi*»0 

006? 

200 

RETURN 

0068 


ENO 
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0001 


0002 

0003 

0004 

0005 

0006 
0007 

ooos 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 


TABLE E.VII (Continued) 


SUBROUTINE QUAOtN.UA, VA, J ,UROOT f VROOT, MULTI 
r *********** *********************************************************** 

C * * 

C * SUBROUTINE QUAD SOLVES DIRECTLY FOR THE ZEROS AND THEIR MULTIPLICITIES * 

C • OF EITHER A QUADRATIC POLYNOMIAL OR A LINEAR FACTOR. SOLUTION OF THE * 

C * QUADRATIC IS DONE USING THE QUAORAT IC FORMULA. * 

C * * 

C ***************** *6 ****************************************** *************** 

DOUBLE PRECISION UA, VA.URCJOTt VROOT, U0ISC,VDISC,UTENP,VT6NPtUQ.VD.E 
LPS1«EPS2 »EPS4,EPSL0N,B8B 

DIMENSION UA! 26 ) » VAt 26> » UROOT 1251 .VROOT (251 * MULTI 25) 

COMMON EPSL,EPS2,EPSL0N,EPS4,I02,MAX 
IFIN.GT.il GO TO 60 
1FIU.LT.0) GO TO 40 

GO TO 50 
40 MULTI l >“ 1 
J D l 

50 0B8=UA(21*UA(21*VAC21*VA(21 

UROOTt J I —— I UA! 1 l*UA! 21*VAI U*VA!2H/BBB 
VROOT! JI»-!VA!U*UA!21-UAlll*VA!2>l/BBB 
GO TO 200 

60 UDISC=(UA(2I*UA | 2 >-VA<2)*VA(2> 1-14.0*1 UA!3>*UAll)-VAO>*VAIl!H 

VDISC = (2.0*UA!21*VA!2)|-(4.0*tUA!3J*VA!n*VA!31*UA! 11)1 
BBB«D$QRTIUOi$C*UOISC+VOlSC*V0tSC> 

IF1BB8.LE.EPSL0N1 GO TO 100 

IF(U.GE.O) GQ TO 80 

HULTHI = l 

MULTI21-1 

J®0 

80 CALL COMSQTIUOISC.VDISC.UTEMP.VTEMP) ^ 

UD=-2.0*UA!3I 
VD-2.0*VAI3t 
BBB=UD*UD*VD*VO 

UROOTI J*1 1» t ( -UA ( 2 1 MJTEMPI *UD*I -VA< 2 l*VTEMPI*VD) /BBB 
VROOT! J*11 = M-VAI21*VTEMP1*UD-I-UA(21*UTEMP1*VDI/BBB 
UROOT I J*2 ) - ! (-UAI 2 l-UTEHP 1 *UD*(- VAl 2 1-VTEMP) *VDI /BBS 
VROOT! J*2)=l(-VAI21-VTEMP»*U0-I-UAI2)-UTEMP)*V01/B8B 
J*J + 2 
GO TO 200 

LOO IF ( J.LT.O) GO TO 110 
J = J*1 
GO TO 130 
110 MULT! 11-2 
J = 1 

130 UD=2.0*UAI3» 

VD«2.0*VA(3) 

BBB«=UD*UO*VQ*VD 

UROOT! JI=!-UA!2)*U0-VA!2»*VD)/B8B 
VROOT ! J I « ! - VA( 2 1 *UD*UA{ 2 1 *VDI /8BB 
200 RETURN 
END 
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TABLE E.VII (Continued) 


0001 


0002 

0003 

ooo* 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
0027 
0029 

0029 

0030 

0031 
003? 
0033 


SUBROUTINE NEWTONIOX ,VX,N»UP,VP»UXO,VXO.CONV) 

C *************************************************************************** 

c * 

C * THIS SUBROUTINE CALCULATES A NEW APPROXIMATION FROM THE OLO APPROX- 
C * IMATION B V USING THE ITERATION FORMULA 
C * XI N + l > * XINI-PIXINn/PMXINH* 

C * 

C ************************************************* ********************* 

DOUBLE PRECISION UX , VX ,UP, VP*UXQ, VXQ*UB» VB, UDPXO. VDPXO, UPXO, VPXD ,U 
10 IF F i VDlf F »EPS l* EPSLQN*EPS3»£P$4t AAA# BBB 
DOUBLE PRECISION ODD 
DOUBLE PRECISION ABPXO 
DIMENSION UP I 261 , VP! 261 , UB 1 261 , VB! 26 ) 

COMMON EPS1.EPSLON, EPS3.EPS4# 102, MAX 
LOGICAL CONV 

UXO-UX ■> 

VX0=VX 

DO 10 1 =1 »MAX 

CALL HORNER! UXG# VXO#N»UP t VP#UB # VB # UDPXO* VDPXO) 

UPX0=UBI1) 

VPX0*VBl 1 ) 

DDD*DSQRTf UDPXQ*UDPXQ+VDPXO*VOPXQ) 

I FI DDD.NE .0 .0 I GO TO 5 
ABP X0=DSQRT I UPXO*UPXO+VPXO*VPXOI 
IF! ABPXO. EQ. 0.0) GO TO 20 
GO TO 15 

5 B0B=UOPXO*UOPXQ* VDPXO* VO PXQ 

UDIFF=(UPXO*UDPXO+VPXO*VDPXQ)/BBB 
VOIFF-1 VPXa*UDPXa-UPXO*VDPXO)/BBB 
UXO=UXO-UDIFF 
VXO= VX □— VDIFF 

AAA=QSQRT! UDIFF*UD1FF*VD1FF* VOIFF I 
8BB»OSORT!UXO*UXQ*VXO*VXO) 

1F( 0BB .E0.0.0I GO TO 10 
IF! AAA/SBS.LT.EPSLONI GO TO 20 
10 CONTINUE 
15 CONV=. FALSE. 

RETURN 

20 CONV=.TRUE. 

RETURN 

END 
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TABLE E.V1X (Continued) 


0001 


0002 

0001 

0004 

0005 

0006 
ooor 

0005 

0004 

0010 

0011 

0012 

0011 

0016 

0015 

0016 
0017 
0016 
0014 
0020 
0021 
0022 
0021 
0026 
0029 
0026 
0027 
0026 


C 

c 

c 

c 

c 

c 


SUBROUTINE 0 IV10E I N, UP, VPiN,UO , VO, K»UQ, VQl 

!**««** •********•*«**«*•**•*#*•• •+****•«••*»***•**•**•****#****•****< 

GIVEN TWO POLYNOMIALS FU) ANO GUI* SUBROUTINE 0IV10E COMPUTES THE 
QUOTIENT POLYNOMIAL HlXl - FIXI/GMI. 


DOUBLE PRECISION UP * VP »UD« VD, UQ* VQ*UTERM* VT ERM * UOUMM Y 
DIMENSION UP (261 * VP1 261 »UDI 26) .V0I26I tUQ(26l * VQ126I 
K-N-M 

UDUMMY-U0(M*1I*UD(M*1I*VD|M*II*VD1M*1» 

UQ( KM !■ t UP(N* 1 1 *LH)I M* II *VP( NM I PVOI MM 1 ) /UOUHMV 
VQtKMl-IVPCNMl*UD(MMI«UP(NMI*VO(NUH/UOUNMV 
tPIK.EQ.Ol GO TO 100 
J«-l 

00 SO l*l*K 
J-4M 

UTERN-UPIN-JI 

VTERN-VPIN-Ul 

KMKM 

NNN-M-4 

00 60 N|"NNN*M 
IPIKK.6T.1) GO TO 10 
GO TO 65 

10 IFIMl.GE.il GO TO 20 
GO TO 60 

20 UTERM»UT ERH-(UQ(KKI*U0IH1 l-VQIKKl *V0( Mill 
VTERM»VTERM- (UQIKKI PVDIM1 UVQtKK I*U0(M1 1 1 
60 KK-KX-l 

65 UDUMMY«UO(NMI*UO(MM l +VDI MM UVOI NM I 

UQIKM-1 1MUTGRN*U0I MM I ♦ VTERM*VOIMMI) /UOUNMY 
50 VQ(KM-ltMVTERN*UOIMMi-UTERM*VD(MMI)/UOUMMV 
100 RETURN 
END 
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TABLE E.V1I (Continued) 


0001 


0002 

0003 

0004 

0009 
0006 

0007 

0008 
0000 

0010 
OOti 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 


SUBROUTINE HORNER IUX , VX,N .UP ,VP»UB, VB,UC ♦ VC I 

C t************************************************************************** 

c • 

C * HORNE R* S METHOD COMPUTES THE VALUE OF THE POLYNOMIAL PIXl AT A 

C * POINT D AND ITS DERIVATIVE AT 0. SYNTHETIC DIVISION IS USED TQ 

C * DEFLATE THE POLYNOMIAL BY DIVIDING OUT THE FACTOR IX - 01. 

C * 

C ******************************************************* ********************i 

DOUBLE PRECISION UX, VX ,UP , VP.UB , V8, JC , VC 
DOUBLE PRECISION UDUMHY. VOUMMY 
DIMENSION UP (2 6) * VP (26 1 «UB(26 1 . VBI 26) 

UBIN+i )«UP IN*1 I 
VB ( N*1 ) = VP( N + l I 

UBIN) = tUX*UB(fm I-VX*V8( N*t I )*UP|NI 

VBIN1-1UX*VB(N»1 UVX*UB(N*ll )*VP(NI 

UC-UBIN+ll 

VC=VB( N*1I 

KKK«N-1 

DO 10 1=1, KKK 

UB<KKKM-n»<UX*UBIKKK*2-I I-VX*VBCKKK*2-I 1 MUPIKKK+1-II 
VBIKKX*!'- I )= IUX*VB(KXK*2~I I* VX*U9 ( KKK4-2- It I* VP< KKK*1-I I 
UOUMHY=UX*UC-VX*VC 
VOUMMY =UX* VC *VX*UC 
UC-UOUMMY*UB (KKX^2- I I 
10 VC = VOUMMY + VB ( KKK+2- 1 I 
RETURN 
END 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 


SUBROUTINE DER I V I N,UP » VP t M.UA. V AI 

C + *** ******* *** ************ ** ****** ** ******* ****************** ************** , 

c * 

C * GIVEN A POLYNOMIAL PIXi, SUBROUTINE DERI V COMPUTES THE COEFFICIENTS OF ' 
C * ITS DERIVATIVE PMX). 

C * 

c *********** **************************•*****•******«************************, 

DOUBLE PRECISION UP, VP ,UA , VA.A AA 
DIMENSION UP 12 6 J , VP 1 26 ) * UA (26I.VAI26) 

KKK»N*1 
00 10 1=2, KKK 
AAA = I- 1 

UAC I-lt=AAA*UPI 1 ) 

10 VA( 1-1 }=AAA*VPl I I 
M=N-1 
RETURN 
END 
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TABLE EoVII (Continued) 


0001 


0002 

0003 

0004 

0005 

0006 
0007 

oooa 

0009 

0010 
0011 
0012 

0013 

0014 

0015 
001 * 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 
0029 


SUBROUTINE MULT t < N,UP »VP . J, UROOT ♦ VROOT « MULTI 
C *********************************** ******************************** ******** 

C * ■ ' 1 

C * GIVEN H ZEROS OF A POLYNOMIAL* SUBROUTINE MULTI COMPUTES THEIR 
C * MULTIPLICITIES. 

C * 

£ ********•*«**********•****•***•****••********•****•*****•*******•*****•**••' 

DOUBLE PRECISION UP,VP,UROOT» VROOT «UA,V A, UB,VB,UC* VC.EPS1.EPS2.EPS 
lLONf EPS3f BBS 

DIMENSION UP(26)»VP|26I»UR00TI25 ) t VROOTC 2 5l »UA( 26 ) t VA I 26l . UBI 261 ,V 
101 26) t MULT (2 51 

COMMON EPSl»EPS2»EPS3»EPSLON» 102 1 MAX 
DO 100 IMtvl 
KKK=N*1 
DO 10 K*l,KKK 
UAl K l=UP l K I 
10 VA(K)<»VP(Kl 
M=N 

MULTI 1 I «0 

20 CALL HORNER ( UROOT (II, VROOT lI)»K»UA t VA »UBt VB.UC t VC1 
BBB=DSqRT(U0m*UBm*V8IU*VBmi 
IFTBBB.lt. EPSLONI GO TO 50 
IFIMULTI I l.EO.OI GO TO 40 
GO TO 100 

40 WRITE! 102,10001 6PSLON, I , UROOT! II .VRODT 111 
GO TO 100 

50 MULTI 1 (•MULT <11+1 
IFIM.GT.il GO TO 60 
GO TO 100 
60 DO 70 K=* 1 * M 
UAIKI-UBI K+l I 
70 VAIKI=VBIK*1I 
M=M-1 
GO TO 20 
100 CONTINUE 
RETURN 

1000 FORMAT I ///15H THE EPSILON I,010.3,48H» CHECK IN SUBROUTINE MULTI 
1 INDICATES THAT ROOTI,I2,4HI * ,D23.16,3H * ,023.16,2H l*/80H IS NO 
2T CLOSE ENOUGH TO BE A TRUE ROOT. IT IS PRINTED BELOW WITH MULT1P 
3L1CITY 0//1 
END 


0030 



TABLE E.VIX (Continued-) 


OOOl 


0002 

0003 

0004 

0005 

0006 
0007 

oooe 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 


SUBR OUT INE -C0NSQT1UX,VX,UY.VY1 

C *************************************************************** 

c * 

C * THIS SUBROUTINE COMPUTES THE SQUARE ROOT OF A COMPLEX NUMBER. 
C * 

c ***************** ***************************** **************** * 

DOUBLE PRECISION UX,VX ,UV , VY.OUMMY, R, AAA. BBB 
R»D$QRT< UX4UX*VX*VX) 

A A 4= OS OR T (DABS ( I R+UX 1/2.0) t 
6BB = 0S0RT (0A8S HR-UX 1/2.0 H 
IF(VX) 10,20,30 
10 UY=AAA 

VY»-l,0*B8B 
GO TO 100 

20 1FIUX1 40,50,60 
30 UY-AAA 
VY=88B 
GO TO 100 
40 DUMMY=DABSI UX) 

UY-0.0 

VY«0$QRT ( DUMMY } 

GO TO 100 
50 UY=0.0 
VY=0.0 
GO TO 100 
60 OUMMY-OABSIUX) 

UY^DSQRT 10UMMYI 
VY-0.0 
100 RETURN 
END 
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APPENDIX F 

G.C.D. - MULLER'S METHOD 
1. Use of the Program 

A double precision FORTRAN IV program using the G.C.D. method with 
Muller's method as a supporting method is presented here. Flow charts 
for this program are given in Figure F.l while Table F. Ill- gives a 
FORTRAN IV listing of this program, Single precision variables are 
listed in Table F.II. The single precision variables are used in the 
flow charts and the corresponding double precision variables can be 
obtained from Table F.II. 

This program is designed to solve polynomials having degree less 
than or equal to 25. In order to solve polynomials of degree N where 
N > 25 , the data statement and array dimensions given. in Table F.l 
must be changed. 

In this program both the leading coefficient and the constant 
coefficient are assumed to be non-zero. 



TABLE F.I 


PROGRAM CHANGES NECESSARY TO SOLVE POLYNOMIALS OF DEGREE 
.. GREATER THAN 25 BY G.C.D. - MULLER’S METHOD 


Main Program 


Data Entry/1H1,1H2, . . . ,1H9,2H10,2H11, . . , ,2HXX/where XX = N+l 

URAPP (N, 3) , VRAPP (N, 3) 

UAPP (N , 3) , VAPP (N,3) 

UP (N+l) , VP (N+l) 

UROOT(N), VROOT(N) 

MULT(N) 

UDP (N+l) , VDP (N+l) 

UD (N+l) , VD (N+l) 

UQ (N+l) , VQ (N+l) 

UQQ (N+l) , VQQ(N+1) 

UB (N+l) , VB (N+l) 

ENTRY (N+l) 

Subroutines MULTI, DIVIDE, DERIV, GCD, and QUAD 


See corresponding subroutines in Table E.I. 


Subroutine MULLER 

UROOT(N), VROOT(N) 

MULT (N) 

UAPP (N, 3), VAPP (n, 3) 
UWORK(N+l) , VWORK(N+l) 
UB (N+l) , VB (N+l) 
UA(N+1), VA(N+1) 

URAPP (N , 3) , VRAPP (N ,3) 


Subroutine BETTER 

UROOT(N), VROOT(N) 
UA(N+1) , VA(N+1) 

UBAPP (N, 3) , VBAPP (N, 3) 
UB(N+1) , VB (N+l) 
UROOTS(N), VROOTS(N) 
URAPP(N,3) , VRAPP (N, 3) 
MULT (N) 


Subroutine GENAPP 

AFPR(N ,3) APPI (N, 3) 

Subroutine HORNER 

UA(N+1) , VA(N+1) 

UB (N+l) , VB(N+1) 
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2. Input Data for G.C.D. - Muller's Method 

The input data for G.C.D. - Muller's method is prepared exactly as 
described in Appendix E, § 2 for G.C.D. - Newton's method. 

3. Variables Used in G.C.D. - Muller's Method 

The main variables used in G.C.D. - Muller's method are given in 
Table F.II. The symbols used to indicate type and disposition are 
described in Appendix E, § 3. For variables not listed in Table F.II, 
see the main program or corresponding subprogram of Table E.VI. 

4. Description of Program Output 

The output from G.C.D. - Muller's method is identical to that for 
G.C.D.- Newton's method as described in Apptendix E, § 4, keeping in 
mind that Muller’s instead of Newton's method is used. The expression 
"SOLVED BY DIRECT METHOD" is equivalent to "RESULTS OF SUBROUTINE QUAD.' 
Only one initial approximation, X Q , (not three) is printed. The other 
two required by Muller's method were . 9X^ and l.lXg. 

5. ' Informative Messages and Error Messages 

The informative messages and error messages in this program are 
described as follows. For . other messages not listed here, see Appendix 
E, § 5. 

"THE EPSILON (XXX) CHECK IN SUBROUTINE MULTI INDICATES THAT ROOT 
YY = ZZZ IS NOT CLOSE ENOUGHT TO BE A TRUE ROOT. IT IS PRINTED BELOW 
WITH MULTIPLICITY 0." This message is described , in -Appendix E,- § 5. 

"COEFFICIENTS OF DEFLATED POLYNOMIAL FOR WHICH NO ZEROS WERE 
FOUND." This message is described in Apptendix E, § 5. 
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"NO ZEROS WERE FOUND FOR POLYNOMIAL NUMBER XX." XX represents the 
number of the polynomial for which no zeros were extracted. 

"IN THE ATTEMPT TO IMPROVE ACCURACY, ROOT XX = YYY DID NOT CONVERGE 
AFTER ZZZ ITERATIONS." This message indicates that a root did not 
produce convergence during the attempt to improve accuracy. XX 
represents the number of the root before the attempt to improve 
accuracy, YYY represents its value, and ZZZ represents the maximum' 
number of iterations. The following message then follows. "THE 
PRESENT APPROXIMATION IS AAA." AAA represents the present approximation 
to the root after the maximum number of iterations. 



TABLE F. II 


VARIABLES USED IN G.C.D. - MULLER'S METHOD 


Single Precision Double Precision Disposition 

Variable Type Variable Type of Argument Description 

Subroutine MULLER 


NP 

I 

NP 

I 

E 

Degree of polynomial P(X) 

NROOT 

I 

NROOT 

I 

R 

Number of distinst roots found 

NOMULT 

I 

NOMULT 

I 


Number of roots (counting multiplicities) 

ROOT 

C 

UROOT,VROOT 

D 

R 

Array containing the roots 

NAPP 

I 

NAPP 

I 

E 

Number of initial approximations to be read in, 

APF 

c 

UAPP , VAPP 

D 

E 

Array of initial approximations 

WORK 

c 

UW0RK,VW0RK. 

D 


Working array containing coefficients of current polynomial 

B 

c 

UB , VB 

D 


Array containing coefficients of deflated polynomial 

A 

c 

UA,VA 

D 

E • 

Array containing coefficients of original polynomial, P(X) 

RAPP 

c 

URAPP , VRAPP 

D 

R 

Array of Initial or altered approximation for which 
convergence was obtained 

XI 

c 

uxi VX1 

D 


One of three current approximations to a root 

X2 

c 

UX2,VX2 

D 


One of three current approximations to a root 

X3 

c 

UX3 , VX3 

D 


One of three current approximations to a root 

PX1 

c 

UPX1,VPX1 

D 


Value of polynomial P(X) at Xl 

PX2 

c 

UPX2 , VPX2 

D 


Value of polynomial P(X) at X2 

PX3 

c 

UPX3,VPX3 

D 


Value of polynomial P (X) at X3 

X4 

c 

UX4,VX4 

D 


Newest approximation (X^ + ^) to root 

PX4 

c 

UPX4 ,VPX4 

D 


Value of polynomial P(x) at X4 

MULT 

I 

MULT 

I 


Array .containing the multiplicities of each root found 

ITER 

I 

ITER 

I 


Counter for iterations 

101 

I 

101 

I 


Unit number of input device 

102 

I 

102 

I 

C 

Unit number of output device 

EPSRT 

R 

EPSRT 

D 

c 

Number used in subroutine BETTER to generate two approxi- 
mations from the one given 

NOPOLY 

I 

NOPOLY 

I 

E 

Number of the polynomial , 
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TABLE F.II (Continued) 


Single Precision 

Double Precision 

Disposition 


Variable 

Type 

Variab le 

Type 

of Argument 

Description 

MAX 

I 

MAX 

I 

C 

Maximum number of iterations 

EPS 

R 

EPS 

D 

C 

Tolerance check for convergence 

EFSO 

R 

EPSO 

D 

C 

Tolerance check for zero (0) 

EPSM 

R 

EPSM 

D 

c 

Tolerance check for multiplicities 

KC.HECK 

I 

KCHECK 

I 


Program control, KCHECK = 1 stops execution of program 

XSTART 

R 

XSTART 

D 

E 

Magnitude at which to start generating initial 
approximations 

XEND 

R 

XEND 

D 

E 

Magnitude at which to end generating initial approximations 

NWORK 

I 

NWORK 

I 


Degree of current deflated polynomial whose coefficients 
are in WORK 

ITLME 

I 

ITIME 

I 


Program control 

NALTER 

I 

NALTER 

I 


Number of alterations which have been performed on an 
initial approximation 

IAPP 

I 

IAPP 

I 


Counter for number of initial approximations used 

CONV 

L 

CONV 

L 


When CONV is true, convergence has been obtained 

IROOT 

I 

IROOT 

I 

R Number of distinct roots solved by Muller's method, 

i,e. not solved directly by subroutine QUAD 

Subroutine HORNER 

A 

C 

UA,VA 

D 

E 

Array of current polynomial coefficients (to be deflated 
or evaluated) 

NA 

I 

NA 

I 

E 

Degree of polynomial to be deflated or evaluated 

X 

c 

ux,vx 

D 

E 

Approximation at which to evaluate or deflate the 
polynomial 

B 

c 

UB,VB 

D 

R 

Array containing the coefficients of the deflated 
polynomial ■ 

PX 

c 

UPX,VPX 

D 

R 

Value of the polynomial at X 

NUM 

I 

NUM ■ 

I 


Number of coefficients of polynomial to. be deflated 


• ! 3< 
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TABLE F. II (Continued) 


Single Precision Double Precision Disposition 

Variable Type Variable Type of Argument Description 

Subroutine TEST 


X3 

C 

UX3,VX3 

D 

E 

Approximation to root (old) (X^) 

X4 

C 

UX4,VX4 

D 

E 

New approximation to root (X^^) 

CONV 

L 

CONV 

L 

R 

CONV = True implies convergence has been obtained 

EPS 

R 

EPS 

D 

C 

Tolerance for convergence test 

EPSO 

R 

EPSO 

D 

C 

Tolerance check for zero (0) 

DENOM 

R 

DENOM 

D 

Magnitude of new approximation, ( x n+ ^) 
Subroutine BETTER 

MULT 

I 

MTJLT 

I 

ECR 

Array of multiplicities of each root 

A 

C 

UA,VA 

D 

E 

Array of coefficients of original undeflated polynomial 

NP 

I 

NP 

I' 

E 

Degree of original polynomial : 

ROOT 

c 

UROOT , VROOT 

D 

ECR 

Array of ROOTS 

NR00T 

I 

NROOT 

I 

ECR 

Number of roots stored in ROOT 

BAPP 

c 

UBAPP ,VBAPP 

D 

E 

Array of initial approximations (old roots) 

IR00T 

I 

IROOT 

I 

ECR 

Number of roots solved by the iterative process (Not QUAD) 

ROOTS 

c 

UROQTS , VROOTS 

D 


Temporary storage for new (better) roots 

L 

I 

L 

I 


Number of roots found by BETTER 

EPSRT 

R 

EPSRT 

D 

C 

A small number used to generate two of the three 
approximations when given one 

ITER 

I 

ITER 

I 

C 

Counter for number of iterations 

B 

c 

UB.VB 

D 


Array containing coefficients of deflated polynomial 

XI 

c 

UX1,VX1 

D 


One of three approximations to the root 

X2 

c 

UX2 , VX2 

D 


One of three approximations to the root 

X3 

c 

UX3,VX3 

D 


One of three approximations to the .root ! 

PX1 

c 

UPX1,VPX1 

D 


Value of polynomial (P(X)) at XI 

PX2 

c 

UPX2 ,VPX2 

D 


Value of polynomial (P(X)) at X2 

PX3 

c 

UPX3,VPX3 

D 


Value of polynomial (P (X) ) at X3 
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TABLE F. II (Continued) 


Single Precision 

Double Precision 

Disposition 


Variable 

I2i 

Variable 

Tjrge 

of Argument 

Description 

CONV 

L 

CONV- 

L 


CONV = true implies convergence has been obtained 

X4 

C 

UX4,VX4 

D 


Newest approximation to root 

J 

I 

J 

I 


Program control - counts the number of roots used 






initial approximations 

MAX 

I 

MAX 

I 

C 

Maximum number of iterations permitted 

102 

I 

102 

I 

C 

Unit number of output device 





Subroutine ALTER 

XI 

c 

X1R>X1I 

D 

ECR 

One of the three approximations to be altered ; 

X2 

c 

X2R,X2I 

D 

ECR 

One of the three approximations to be altered 

X3 

c 

X3R,X3X 

D 

ECR 

One of the three approximations to be altered 1 

X2R 

R 

X2R 

D 


Real part of complex approximation 

X2I 

R 

X2I 

D 


Imaginary part of complex approximation 


Subroutine CALC 

These variables are dummy variables used for temporary storage and thus, are not defined. 
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Figure F.l. (Continued) 
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DIVIDE 



DERIV 



Figure F,l, (Continued) 
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QUAD 



Figure F. 3. . (Continued) 
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GENAPP ALTER 








| 8ET««- fltT«-*-1T/3 
KIR «— fi-COS(B£T*) 
Ml — fl'SIM<8rrR) 

u *- cm»ut (<&«,»!) 



Figure F.l. (Continued) 
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TABLE F, III 

PROGRAM FOR G.C.D. -MULLER'S METHOD 


0001 

0002 

0003 

0004 


0005 

0006 
0007 
0000 

0009 

0010 

0011 
00 12 
0013 
00 14 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 


x >*********•*******•*****♦*+***♦*****♦*****♦*******#* ***»*******■**#*♦*** •**»**• 

c * * 

C * DOUBLE PRECISION PROGRAM FOR G.C.O. - MULLER’S METHOD * 

C * * 

C * * 

C * THE G.C.D. METHOD EXTRACTS THE ZEROS AND THEIR MULTIPLICITIES OF A * 

C * POLYNOMIAL OF MAXIMUM OEGREE 25, ALL MULTIPLE ROOTS ARE REMOVED BY * 

C * OIVIOING THE POLYNOMIAL BY THE GREATEST COMMON DIVISOR OF THE POLYNOMIAL * 

C * AND ITS DERIVATIVE, THE ZEROS OF THE RESULTING POLYNOMIAL ARE EXTRACTED * 

C * AND THEIR MULTIPLICITIES DETERMINED, * 

C * * 

C ** + * ********** ************** ***** ********* *************** ******************* 

DOUBLE PRECISION URAPPtVRAPP 

DOUBLE PRECISION UP, V P .UAPP , VAPP .UROOT .VftQOT ,UDP. VDP ,U0, VD.UZRQ.VZ 
IRO.UQ.VO .UOUMHY, VOUHMY ,UQQ ,VQQ,UB, VB »EPS l » EPS2 »E PS3 . EPS4 
DIMENSION URAPP! 25 ,31 ,VR APP ( 25 , 3 I , UAPP (2 5 , 3 I » VAPP I 25*31 
DIMENSION UP ! 261 , VP ( 26 1 , UROOTI 25 1 , VROOT (25 1 , MULTI 25 1 ,UOP! 26 1 , VOPI 2 
16),U0I26),V0126),UQ(26)«VQ(26), UQQ! 261* VQOI 26) ,UBI26) , VB ( 26) , ANAME 
2 12) .ENTRY126) 

DOUBLE PRECISION XST ART 
DOUBLE PRECISION XENO 
OOUBLE PRECISION EPSRT 

COMMON EPSRT , EPS l, 6PS2.EPS 3, EPS4.I02.MAX 
DATA PNA ME , ONAME , QDNAME/ 2HPI , 2H0! , 3HQQ!/ 

DATA ENTRY/1H1 , 1 H2 , 1H3 , 1H4, IH5 , 1 H6 , 1H7 , 1 H8 , 1H9, 2H10, 2H J 1 , 2H12 ,2H13 
1.2H14,2HI5*2H16,2H17*2H18,2H19,2H20.2H21,2H22,2H23,2H24,2H25,2H26/ 

DATA ANAME ( 1 1 * ANAME I 2 1 74HMULL »4HERS / 

LOGICAL NEWT 

101 = 5 

102 = 6 
10 J = 0 

I T I ME=0 

READ! 101,1000) NOPOL Y , NP ,N APP .MAX , EPS1 , EPS 2 , EPS3, EPS4, XST ART, XENO, 

IKCHECK 

IFIKCHECK.FQ.l ) STOP 

WRITE! 102,10201 ANAME! 11 ,ANAME{2I .NOPOLY 

WRITE! 102,2000) NAPP 

WRITE! 102.2010) MAX 

WRITE! 102,2070) EPSl 

WRITE! 102,2020) EPS 2 

WRITE! 102,2080) EPS3 

WRITE! 102,2030) EPS4 

WRITE! 102,2040 ) XST ART 

WRITE! 102,2050) XEND 

WRITE! 102.20601 

KKK =>NP *• 1 

NNN=XKKH 

DO 20 l-l.KKX 

JJJ=NNN-I 

20 READU01 , 1010) UP I J J J) , VPI J J J 1 
IF(NAPP.NE.O) GO TO 22 
NAPR=NP 

CALL GE NAPP (UAPP, VAPP, NAPP, XST ART) 

GO TO 23 

22 REAO! (01,1015) ! UAPP ( 1 ,2 I , VAPP ( I ,2 I , 1 = 1 , NAPP I 

23 WRITE! 102 , 1030) NP 
KKK = NPM 
NNN=KKK* 1 



TABLE F. Ill (Continued) 


0042 

0043 

0044 

0045 

0046 

0047 
0040 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 
0050 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 
00H5 
0086 

0087 

0088 
0009 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 


00 25 1=1, KKK 
JJJ=NMM-1 

25 WRITE! 102*1040) PN AHE, ENTRY! J JJ I ,UP! J J J I , VPt J JJ) 

IFtNP.GE.31 GO TO 30 
J*-l 

CALL QUAD (NP,UP,VP»J,UROOT,VROOT, MULTI 
WRITE! 102, 10701 

WRITE! 102,1165) ( I , UROOT ! 1 ) , VROOT ( U , MULTI 1 1,1 = 1, J) 

GO TO 10 

30 CALL 0ERIV(NP,UP,VP,N0P.U0P,V0P1 

CALL GCDINP»UP» VP»NDPfUDP*VOP,NO«UOfVD) 

IEtNO.GT.il GO TO 70 
I F 1 NO. EQ.O I GO TO 65 
UQUMMY=UOt 2 l *U0« 2 1 *V0( 2 ) *VD( 2 1 
U2R0= -I UD 111 HID 1 2 > ♦ V0< 1) *V0< 211/ UOUMMY 
V ZRQ=-! U0( 2 1 *V0! I >-UD(l) *VOt 2 ) ) /UOUMMY 
KKK= NP, 1 
00 55 1=1, KKK 
UQO! I 1 =UP! KKK* l- I l 
55 VQU1 I )=VP!KKK*1-I 1 
NQQ=NP 

CALL HORNER < NQQ, UQO, V QQ , U ZRO , V 7R0 , UB , V8 , UOUMMY, VDUMMY) 

NQ=NP-1 
00 60 1=1, NP 
UQf l)=UfMNP+l-l 1 
60 VO! 1 )=VB(NP>l-l 1 
GO TO 00 

65 KKK=NP+1 

DO 66 1 = 1 ,KKK 

uom=upm 

66 VQf I 1 = VP I I 1 
NQ=NP 

GO TO 00 

70 CALI D! VIDEINP, UP, VP, NO, UD, VO, NQ»UQ,VQ> 

80 WRITE! [02, 1120) NO 
KKK=NQ, 1 
NNN=KKK ♦ 1 
00 83 1=1, KKK 
J J J»NNN- I 

83 WRITEU02, 1040) QNAME, ENTRY1 J J J) ,UQI JJJ) , VQI > 

IF1NQ.GE.3) GO TO 85 
GO TO HO 
85 KKK-=NQ+ 1 

DO 90 1=1, KKK 
UQCM I ) =UQ ! KKK* l - l ) 

90 VQQ ( I 1 = VQtKKK* l- I 1 
NQQ=NQ 
GO TQ 120 

110 CALL GUAO ( NO , UO, VQ » J , UROOT , VROOT , MULT) 

NEWT =. FALSE. 

GO TO 310 

120 CALL MULLER 1U0Q, VCIQ ,NQQ , UAPP, VA PP, N APP, X START, XENO, UROOT, VROOT, J, J 
1 AP,URAPP,VRAPP,NOPOLY I 
NE WY =. TRUE . 

310 CALL MULTI (NP, UP, VP, J, UROOT, VROOT, MULT) 

If (NEWT) GO TO 330 
WRITE! 102,1070) 

WRITE! 102, 1165) t L « U ROOT ! L 1 , VRQO TIL), MUL TIL) » L = 1 , J I 



0099 

0100 
0 10 1 
0102 

0103 

0104 

0105 

0106 

0107 

0108 
0109 


0110 

0111 
0112 
01 13 

0114 

0115 


0116 
0117 
D1 18 

01 19 

0120 
0121 
0122 

0123 

0124 

0125 

0126 
0127 
0120 


TABLE. F.III (Continued) 


GO TO 10 

330 WRITE! 102,11801 
00 350 L = l * JAP 

3 50 WRITE 1 102,1 1901 L.URQOTU I ,V ROOT (U , MULTI U , URAPP (L » 2 I , VRAPPt L , 2 ) 
KKK,= JAPM 

TEUAP.LT.J1 WRITE C 102. 1165) IL.UROOTILI , VRODT (L ) , MULT ( L ) , L=KKK, J ) 
GO TO 10 

1000 FORMAT! 31 1 .2, 1 X) , 9X , l 3, IX , 4(06.0 1 1 Xl * 13 X » 2! 07 . 0 1 U ) » 1 1 1 
1010 FORMAT! 2030. 0) 

1015 FORMAT 12030. 0) 

1020 FORMAT! 1H1 , 10X .41HGREATE ST COMMON DIVISOR METHOD USED WITH ,2!A4l f 
1 35HMETHOO TO FINO ZEROS OF POLYNOMIAL S/ l IX, 18HPQLYNQM1 AL NUMBER tl 
22///) 

1030 FORMAT! IX, 22HTHE DEGREE OF PI X) IS .12,22H THE COEFFICIENTS ARE// 
1 ) 

1040 FORMAT12X,A2,A2,4H) = ,D23.16,3H ♦ ,023.16,2H I) 

1070 FORMAT ( ///IX • L 3HR00T S OF PI X) ,52X, 14HMULT IPL ICIT1ES//) 

1080 FORMAT (2X,5HR00T ( , !2 ,4H) a , 023 . 16, 3H ,023. )6,2H (,10X,12I 
UOO F ORMAT | 2X » A3 ,A2 »4HI = ,D23.16,3H ♦ ,D23.16,2H 1) 

1120 FORMAT {///IX, 73 HQ IX) 1$ THE POLYNOMIAL WHICH HAS AS ITS ROOTS THE 
1DISTINCT ROOTS OF PI X) ./1X,22HTHE DEGREE OF 01X1 IS ,I2,22H THE C 
20EFFICIENTS ARE//) 

1165 FORMAT I2X,5HRG0T(» 12, 4H) = ,023.16, 3H * ,D23.16,2H l , 7X, 1 2, 10X , ?6H 
1RESULTS OF SUBROUTINE QUAD) 

1180 F0RMATI///1X, UNROOTS OF P I X >, 52X , 14HMUL TJ PL I C! Tl ES , 1 7X, 21HINI Tl AL 
1 APPROXIMATION//) 

1190 FORMAT I2X»5HR00T I , 12»4H) = ,023.16,3H ♦ ,D23.16,2H I, 7X, 12, 9X,D23. 
116, 3H *■ ,023.16, 2H I ) 

2000 FORMAT ! 1 X , 41HNUM8ER OF INITIAL APPROXIMATIONS GIVEN. ,12) 

2010 FORMAT! IX, 29HMAXJMUM NUMBER OF I TEftAT I 0N$. , l IX , 13) 

2020 FORMAT I1X,21hTEST FOR CONVERGENCE.. 13X,D9, 2) 

2030 FORMAT ( IX, 24HTEST FOR MUL T IPL IC 1 T I ES . ,10X ,09 «2 I 
2040 FORMAT! 1X,23HRA0JUS TO START SE ARCH. , 1 1 X , 09. 2) 

2050 FORMAT U X , 2 l HR AIM US TO END SEARCH. , 13X,I)9.2) 

2060 FORMAT (//IX) 

2070 FORMAT ! IX, 34HTEST FOR ZERO IN SUBROUTINE GCO. ,D9.2) 

2080 FORMAT (1X,34HT£ST FOR ZERO IN SUBROUTINE OUAO. ,09.2) 

END 
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TABLE F.JII (Continued) 


pool 


0002 

0003 

0009 

0005 

0006 
000 7 
0008 

0009 

0010 
oon 
0012 
0013 
0019 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 
0029 

0025 

0026 

0027 

0028 
0029 
00 30 


0031 


SUBROUTINE MULT IIN,UP,VP, J,UROOT» VROOT,HULT) 

C ***** ***** ******* ********* ********************************* ***************** 


C * * 
C ♦ GIVEN N 7 EROS OF A POLYNOMIAL, SUBROUTINE MULTI COMPUTES THEIR * 
C * MULTIPLICITIES. * 
C * * 


c **************************************************************************** 

DOUBLE PRECISION UP, VP ,URQOT , VftOOT, UA ,VA ,UB»V B,UC , VC, EPS 1 , EPS2.EPS 

1L0N.EPS3,8BB 

DIMENSION UP<26I,VPI26I,UR0QT<25 I , VROOT I 251 ,UAl 26 I ,VA(26l ,U0I26) *V 
IBI 261 , MULTI 251 
DOUBLE PRECISION EPSRT 

COMMON EPSRT, EPS 1, EPS 2, EPS3, EPSLON, 1 02, MAX 

00 100 1=1, J 

KKK=N* 1 

00 10 K=1 ,KKK 

UAIKMUPlKKX + l-K > 

10 V Al K | =V P l KXK*l-K 1 
M = N 

MULT I I ) =0 

20 CALL HORNER (M, UA, VA.UROOT (II , VROOT III , UB, VB, UC,VC) 

OfiB=OSQRT <UC*UC*VC*VC> 

IFI ttBB.LT.EPSLONl GO TO 50 
IF ( MULT I I l.EQ.OI GO TO 90 
GO TO 100 

90 WRITE! 102,10001 E PSLON, l ,URO0T<! 1 , VROOT 111 
GO TO 100 

50 MULTI I JsMULTIl 1*1 
IflM.GT.il GO TO 60 
GO TO 100 
60 00 70 K=i,M 
UA(K)=UBtKI 
70 VA< K)=V3IKI 
M*M-1 
GO TO 20 
100 CONTINUE 
RETURN 

1000 FORMAT (///15H THE EPSILON I,Q10.3,98H1 CHECK IN SUBROUTINE MULTI 
IINOICATES THAT R00T(,12,9H» = ,023,16,3H * ,023.16,2H 1,/SOH IS NO 
2T CLOSE ENOUGH TO BE A TRUE ROOT. IT IS PRINTED BELOW WITH MULT1P 
3LICITY 0//1 
END 
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0001 


0002 
000 3 
000 * 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 
0019 
00 20 
0021 
0022 
0023 
002 * 
0026 
0026 

0027 

0028 


0001 


0002 

0003 

000 * 

0005 

0006 

0007 

0008 

0009 

0010 
0011 


TABLE F, HI (Continued) 


SUBROUTINE 0IV1DECN,UP,VP,M«UD»VD,K,UQ,VQ| 

C **#******«**<,*«• *** ********************************************************* 


c * * 

C * GIVEN TWO POLYNOMIALS F < XI AND GCX|, SUBROUTINE OIVIDE COMPUTES THE * 

C * QUOTIENT POLYNOMIAL HIXI = FCXI/GIXI. * 

C * * 


C ****** ********** * ********* ******** ********* ********************************* 

DOUBLE PRECISION UP , VP ,U0, Vp. UQ , VQ, UTERM , VTERM.UOUMMY 
DIMENSION UP 126) ,VPC 26 I ,UDt261 , V0C261 ,UQ(26> ,VQ(26) 

K=N-M 

UOUMMY = UD( M* 1 1 *UD { M*l l*VDCMM >*VOCM*ll 

□QC K + l I * C UPC N* l) *UD( M* 1 1 *VP< N*l l*VOCM+l) J/UDUMMY 

VQOU1 l=CVPf N*1 l*UD{M*l)-UP<N*l I *V0CM*1 1 1/UOUHMY 

CFCK.EQ.OI GO TO 100 

J=-l 

00 50 l»l .K 
J = J+1 

UTFHM=UPI N-Jl 
VTERM-VPC N-J) 

KK=K*1 
NNN=M- J 

DO *0 Ml=NNN f M 
IF(KK.GT.l) GO TO 10 
GO TO *5 

10 IFCMi.GE.il GO TO 20 
GO TO *0 

20 UTERM*UTERM-CUQ(KtO*U0CMl l-VQ I KK ) *VDI Ml I 1 
VTERM=VT£RM-C UQ C KK 1 * VOC Ml t *VQ( KK) *UD{ Ml I I 
*0 KK=KK- 1 

*5 UOUMMY = UDIM*ll*UOCM*n+VDCM*l)*VDCM*ll 

UQ CKt i-l I -< UTE«M*UOC M* 1 I ♦VTERM*VD< M* l I ) /UDUMMY 
50 VQ£K*1-1 1 = 1 VT£RM*UDCN*ll-UTEftM*VDCM*l)) /UDUMNV 
100 RETURN 
ENO 


SUBROUTINE DER I V < N ,UP ♦ VP » M.UA » VA » 

C ************** ******** ******* ************************************** ********4 

C * * 

C * GIVEN A POLYNOMIAL PCX!, SUBROUTINE DERI V COMPUTES THE COEFFICIENTS OF * 

C * ITS DERIVATIVE P'CX). * 

C * * 

C * ********************************************************** ****** *********** 
DOUBLE PRECISION UP , VP ,U A, V A, AAA 
DIMENSION UPC261 ,VPi 26) ,UA(261 , VAC26) 

KKK=N*l 
DQ 10 1=2 • KKK 
AAA* I- l 

UAC I-II=AAA*UPC II 
10 VAC I-l I * AAA* VP I I 1 
H=N-l 
RETURN 
END 
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TABLE F. Ill (Continued) 


0001 


SUBROUTINE GCD l N ,UR , VR , M .US , VS , Ml , USS , VSS ) 

C ********* ************* **********************1****** ************************** 

c * * 

G * GIVEN POLYNOMIALS P(X> ANO DPCX) WHERE OEG. DPIXJ IS LESS THAN DEG. * 

G * P|X>, SUBROUTINE GCO COMPUTES THE GREATEST COMMON DIVISOR OF PtXl AND * 

c * opm. * 

c * * 

Q **************************************************************************** 


0002 


DOUBLE PRECISION EPSRT 

0003 


DOUBLE PRECISION USSSSS, VSSSSS 

0009 


DOUBLE PRECI SI ON UR , VR ,US , VS , USS , VSS ,URR , VRR , UD, VO ,UT, VT * EPSLON, EP 
IS2,EPS3,EPS9,BBH 

0005 


DIMENSION UR <2 6) ,VR <261 , US ( 26 } , VS ( 26 » ,USS I 26 > ,VSS 1 26 1, URRI 26l»VRRC 
1261, UT( 261 , VT< 261 

oooe 


COMMON EPSRT. EPSL UN *EPS2»EPS3,EPS9tlQ2t MAX 

0007 


N 1=N 

0003 


M1 = M 

0009 


KKK=N* 1 

0010 


DO 20 1=1, KKK 

0011 


URR 1 I ) =UR ( I I 

0012 

20 

VRRm=VRU) 

0013 


KKK=M*l 

0019 


DO 25 1=1, KKK 

0015 


ussm=usm 

0016 

25 

VSS( J >=VSI I 1 

0017 

30 

BBD=U$St Ml + l }*US SI Ml ♦ l H-VSSI Ml *H *V$S<Ml* 1 1 

0018 


U0= I URR INl+l )*US $< Ml *1 l + VRRINl*l >*VSSIMI*l 1 1/BBB 

0019 


VD= JUSSI Ml+ll*VRR< Nl+U-URRtNl *U* VSS (Ml* n> /BBS 

0020 


KKK=Nl*l-Ml 

0021 


DO 90 ! = KKK , Nl 

0022 


UT ( 1J = URR(I )-( UD*USS( I-Nl*MU-VD#VSS(l-Nl*Mm 

0023 

90 

VT I I >= VRR( n-( UD*VSS< l-Nl+Ml 1*V0 *USS I 1-N1 +MI M 

0029 


IF( Ml .EO.Nl 1 GQ TO 70 

0025 


KKK=Nl— M l 

0026 


DO 60 I =1 »KKK 

0027 


UT I l J=URR( 1 1 

0028 

60 

VT4 I 1=VRR( ( 1 

0029 

70 

DO 90 1=1 ,Nl 

0030 


BBB = OSORT(UT(Nl*l-II*UT(Nl + l-n*VTlNl + l-I>*VTlNl*l-I M 

0031 


IF ( BBB.GT .EPSLON 1 GO TO 100 

0032 

90 

CONTINUE 

0033 


DO 95 1=1, Ml 

0039 


BBB = USS ( Ml + 1 I *US S(Ml*l)*VSSlMl*l l*VSSIMl*l) 

0035 


usssss= ( uss c i )*uss«Mi*n ♦vssm*vss< Mi+i 1 1 /bbb 

0036 


VSSSSSH VSS I I>*USS(MH-1 J-USSm*VSS(Ml*m/BBB 

0037 


USS{ 1 J =U5SSSS 

00 38 

95 

VSS( 1 ) = VSSSSS 

0039 


ussiMi*n=i .o 

0090 


VSS1 Ml + 1 ) =0.0 

0091 


GQ TO 200 

0092 

100 

K=N1 -I 

0093 


IF< K.EQ.O ) GQ TO 170 

0099 


IF(K.LT.M1J GO TO 190 

0095 


KKK=K*l 

0096 


DO 130 J= 1 , KKK 

0097 


URRI J)=UT C J) 

0098 

130 

VRR ( Jl =VT ( J J 

0099 


N1 = K 



TABLE E.HI (Continued) 


0050 


GO TO 3Q 

0051 

1*0 

KKK=K*1 

0052 


DO 150 J=1,KKK 

0053 


URR ( J 1 = US S( J I 

005* 


VRR ( J ) * VS S< J 1 

0055 


liSSl J 1 =UT 1 J) 

0056 

150 

VSS< J) -VTC J1 

0057 


KKK=K>2 

0058 


NNN=MJ+l 

0059 


00 160 J=KKK»NNN 

0060 


URR < J 1 =U5St J 1 

0061 

160 

VRRI J>=VSS( 

0062 


N l=M l 

0063 


Ml=K 

006* 


GO TO 30 

0065 

170 

USSt 1 1=1.0 

0066 


VSS(U*0.0 

0067 


HI =0 

0068 

200 

RETURN 

0069 


END 
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TABLE F.III (Continued) 


0001 


0002 

0003 

0004 

0005 
000 6 
000 ? 
0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
00 17 

ooia 

0019 
00 20 
0021 
00 2 2 

0023 

0024 

0025 

0026 
002 7 
0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 
00 3 7 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 


SUBROUTINE QUAD! N, UA, VA, J , UROOT, VROOT, MULT I 

C ******** ** ******* ********* ********** ****************** **************** ****** 


C * * 
C * SUBROUTINE QUAD SOLVES DIRECTLY FOR THE ZEROS AND THEIR HULTI PL ICI T I ES * 
C * OF EITHER A QUAORATIC POLYNOMIAL OR A LINEAR FACTOR. SOLUTION OF THE * 
C * QUAORATIC IS DONE USING THE QUAORATIC FORMULA. * 
C * * 


C ********************************* ******************************** *********** 

DOUBLE PRECISION EPSRT 

DOUBLE PRECISION UA, VA, UROOT » VROOT , UDI SC , VO I SC .UTEMP, VTEMP.UD, VD,E 
1PS1.EPS 2, EPS4,EPSL0N,BBB 

DIMENSION UA t 26 I »VA( 26) »UROQT 1251, VROOT ( 25) , MULT I 251 
COMMON EPSRTtEPSl.EPS2tEPSL0N.6PS4, 102, MAX 
IFIN.GT.1J GO TO 60 
IFIJ.LT.O) GO TO 40 
J = J+1 
GO TO 50 
40 MULT ( 1 1=1 
J = 1 

50 BBB = UA ( 2 I *UA (2)*VA(2)*VAI2) 

UROOTI J»=-(UAl 1 )*UAt 2) +VAI l )*VAI2) )/BBB 
VROOTt JJ— (VAU >*UA( 2I-UAI 1 ) * VAI 2 ) ) /BBS 
GO TO 200 

60 UDISC=IUAI2) *UA(2)-VAf 2)*VAI2))-14.0*(UA<3)*UA< U-VAI 3)*VAl 1))) 

VDl SC= I 2.0*UAl 2>*VAt 2) >-< 4.0*IUA(3) *VA( l ) *VAI3 )*UAI llll 
B8B*0SQRTI UDI 5C*UDI SC*VDl SC*VDl SC > 

IFIBGft.LE.GPSLGNl GO TO 100 

IF I J .GE .0 I GO TO 80 

MULT (11=1 

MULT (21=1 

J=0 

80 CALL COMSQTIUDlSCtVOISC. UTEMP, VTEMP) 

UD=2,0*UA ( 3 1 
VD=2.0*VAt 3) 

BB8=U0*UD*VD*VD 

UROOTI J*t) -l t-UAI 2)*UTEMP)*UQ*(-VAI2) ♦■VTEMP )*VD)/BB8 
VROOT 1 J*l J = 1 1-VA<2)*VTEMP) *UO-l -UAl 2 1*UTEMP> *VD) /BBS 
UROOTI J*2) =< (-UAI2 I -UTEMP ) *U0* I-VA ( 2 ) -VTEMP ) *VD )/ B6B 
VROOTt J + 2 1 = 1 I-VAI 2 )- VTEMP ) *UD-I-UAI 2 > -UTEMP) *VD) /BBB 
J= J+2 
GO TO 200 

100 IF(J.LT.O) GO TO 110 
J = J*l 
GO TO 130 
.110 MULTI 1) = 2 
J = 1 

130 UD=?.0*UAI 3) 

VD~2.0*VAl 3) 

BBB=UQ*UD*VO*VO. 

UROOTI J)=(-UA( 2) #U0- VA< 2 ) * VO ) /BBB 
VROOT I J) = I-VAI 2 I *U0+UA(2 ) *VDJ /BBS 
200 RETURN 
ENO 
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TABLE F.III (Continued) 


0001 


0002 


0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
00 L8 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 


SUBROUTINE HUtliER lUA'VVA iNP'tUAPPVVAPP« NA1>P,XSr ART* XENOtUROOT«VROOT« 
INROOT.IROOT.URAPP.VRAPP.NQPQLY) 

C *y»MM*»t**«Mt»«***»M**MMm*mM*M**m*mM*M*MM*M*********»* 

p * 

C • MULLER’S METHOD EXTRACTS THE ZEROS AND THEIR MULTIPLICITIES OF A 

C * POLYNOMIAL OF MAXIMUM DEGREE 25. THROUGH THREE GIVEN POINTS THE 

C * POLYNOMIAL IS APPROXIMATED BY A QUADRATIC. THE ZERO OF THE QUADRATIC 

C * CLOSEST TO THE OLD APPROXIMATION IS TAKEN AS THE NEW APPROXIMATION. 

C « IN THIS MANNER A SEQUENCE IS OBTAINED CONVERGING TO A ZERO. 

C * 

c *************************** *************************** ************ ********* 

DOUBLE PRECISION UPX3, VPX3.UPX2. VPX2 , UROOT .VROOT .UX 1 . VX l .UAPP.V APP 
1.UX2.VX2. UWQftK * V WORK ,UX3, VX3 ,UB, VB , UX4, VX4. UA. VA.UPX l , VPXl , UR APP .V 
2RAPP.UPX4.VPX4, EPS RT, EPSO.EPS, CCC# EPSM.UH3, VH3.UQ4.VQ4. ABPX4.ABPX3 
3.QQQ.X START. XEND 

DIMENSION UROOT 125). VROOT 1251. MULTI 251.UAPPI 25*31, VAPPI25, 31 .UWORK 
1(261 ,VWORK(26>.UB(26l,VB(26>,UA(26l ,VAI 26 1 .URAPP I 25, 3) , VRAPP < 2 5, 3| 

LOGICAL CONV 
DOUBLE PRECISION EPS! 

COMMON EPSRT.EPSl.EPS.EPS0.EPSM.I02.MAX 
DATA PNAME . DNAME/2HP I , 2HOI / 

EPSRT=0. 999 
NROOT=C 
I ROOT =0 
! PATH*l 
NQMULT=0 
NALT£R=0 
ITIME=0 
IAPP=L 
I TER=l 

IF ( N APP. NE. 01 GO TO 18 
NAPP=NP 

CALL GENAPP(UAPP,VAPP,NAPP,X START I 
GO TO 27 

18 DO 25 1=1 »NAPP 

UAPP( I ,1 J=0.9*UAPP(I»21 
VAPPI I ,1 1=0. 9*VAPP( I *2) 

UAPP(I,31 = l.l*UAPPU,21 
25 VAPP(I,31=l.i*VAPP(I*2> 

27 KKK»NP*i 

00 30 1=1, KKK < 

UWORKI I 1 =UA( I ) 

30 VWORK( M=VA( I) 

NWORK=NP 

40 UXl=UAPP| I APP.l 1 
VX1 = VAPP I I APP. 1 1 
UX2=UAPP( IAPP.2 I 
VX2 = VAPP( IAPP.2 1 
UX3=UAPP( IAPP.3I 
VX3=VAPP( IAPP.3 > 

CALL HORNER ( NWORK .UWORK , VWORK »UX l.VXl .UB.VB. UPX 1 , VPX l ) 

CALL HORNE R I NWORK, UWDRK, VWORK, 0X2, VX2.UB, VB.UPX2, VPX21 
CALL HORNE R (NWORK, UWORK, VWORK. UX3,VX3,UB,V8,UPX3,VPX3 I 
50 CALL CALC I UX l.VXl, UX2.VX2.UX3.VX3* UP XI, VPXI* UP X2 , VPK2 »UPX3 , VPX3.UX 
14.VX4.UQ4.VQ4.UH3.VH3I 

60 CALL HORNERINWORK. UWORK, VWORK, 0X4 , VX4 ,UB* V6.UPX4* VPX4) 

ABPX4* DSQRTI UP K4*UPX4*VP X4*VPX4 1 
A8PX3=DSQRT4UPX3*UPX3*VPX3*VPX3» 



TABLE F. Ill (Continued) 


0044 


IF| ABPX3.EQ.0.0) GO TO 70 

0045 


QQO= ABPX 4/ A0PX3 

0046 


IF1QQQ.LE.10.I GO TO 70 

0047 


U04=0.5*UQ4 

0048 


VQ4=0.5*VQ4 

0049 


UX4=UX3* t UH3*UQ4-VH3*VQ4 1 

0050 


VX4=VX3M VH3*U04H)H3*VG4) 

0051 


GO TO 60 

0052 

70 

CALL TEST!UX3,VX3,UK4»VX4»C0NV1 

0053 


1 F { CONV ) GO TO 120 

0054 


1FUTER.LT. MAX) GQ TO 110 

0055 


CALL ALTER IUAPP 1 1 APR * 1 ) t VAPPI I APP, t ) .MAPPU APR, 2 1 .VAPPI JAPP ,2) 
IP! I APP, 3), VAPPI IAPP, 3) .WALTER, I TIME) 

0056 


1 F (WALTER. GT. 5 ) GO TO 75 

0057 


IT£R=1 

0058 


GO TO 40 

0059 

75 

IF( 1 APP.LT.NAPPI GO TO 100 

0060 


TFIXEND.EQ.O.OI GO TO 77 

0061 


IF(XSTART.GT.XENO) GO TO 77 

0062 


NAPP«NP 

006 3 V 


CALL GENAPP IUAPP, VAPP, NAPP , X START 1 

0064 


I APP = 0 

0065 


GO TO 100 

0066 

77 

WRITE! 102.1090) 

0067 


KKK=NWQRK*l 

0068 


WRITE! 102.1035) ( ONAME * J »UWORX( J ) , VWORK( J ) . Jo l .KKK ) 

0069 

80 

IF INROOT • EQ.O ) GO TO 90 

0070 


|F( IPATH.EO.il GO TO 82 

0071 

81 

I P AT H= 2 

0072 


CALL BETTER! UA,VA,NP .UROOT , VRQOT .NROQT , UR APP • VRAPP . I ROOT .MULT ) 

0073 


RETURN 

0074 

82 

IF ( NROQT . EO. 0) GO TO 90 

0075 


IF! IROOT.EO.O) GO TO 85 

0076 


WRITE! 102, 1080) 

0077 


DO 55 1 = 1, I ROOT 

0078 

55 

WRITE! 102,1085) 1 , URQOT If) , VROQT 11 1 ,URAPP 1 1 , 2) , VRAPP! I, 2) % 

0079 


IFUROOT.LT. NROOT) GO TO 85 

0080 


GQ TO 87 

0081 

85 

KKK» 1 ROOT+l 

0082 


WRITE! 102,1086) U ,UROQT ! 1) , VRQOT ! I 1 , I=KKK, NROOT ) 

0083 

87 

IF! ! PA TH. EO. 1 ) GO TO 81 

0084 


RETURN 

0085 

90 

WRITE! 102,10701 NOPOLY 

0086 


RETURN 

0087 

100 

1 APP= 1 APP *1 

0088 


!TER=l 

0089 


NAL TER=0 

0090 


GQ TO 40 

0091 

120 

NROOT = NROOT *1 

0092 


IROOT=NROOT 

0093 


MULT INROOT 1=1 

0094 


NOMULT =NQMULT ♦ 1 

0095 


UROOT! NRQ0TI=UX4 

0096 


tf ROUT ( NROOT ) =VX4 

0097 


URAPPCNROOT, 1 1 «UAPP! I APP, 1) 

0098 


VRAPP!N«OOT, l)=VAPPl I APP.U 

0099 


URAPPCNROOT, 2)*UAPP1 IAPP.2) 

0100 


VRAPPINROOT ,21 =V APP! IAPP,2I 
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otoi 
0102 
0103 
010 * 
0105 
01 0 £> 
0107 
0100 

0109 

0110 
0111 
0112 

0113 

0114 

0115 
0115 
0117 
01 18 

0119 

0120 
0121 
0122 

0123 

0124 
. 0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 
0133 

0139 

0140 

0141 

0142 

0143 

0144 

0145 


TABLE F. Ill (Continued) 


URAPPI NROOT ,3 ) »UAPPI TAPP, 31 
VRAPPI NROOT ,3)*VAPP(1 APP, 3 I 
125 1 F t NOHUL T »L T .NP 1 GO TO 130 
GO TO 80 

130 CALL HORNE R(NWORK * UWORK ,V WORK »UX4, VX4, UB> VB, UPX4, VPX4) 
NWQRK=NW0RK-1 
KKK=NWQRK*1 

00 140 l-l.KKK 
UW0RK1 I hUBI I ) 

140 vwoRKin=vem 

CALL HORNER I NWQRK, UW0RK , VWORK ,UX4, VX4.US , VB, UPX4,VPX4| 

CCC=DSQRT (UPX4*UPX4*VPX4*VPX4) 

IF(CCC.LT.EPSM) GO TO 150 
IFINWORK.Gr.21 GO TO 75 
IRODT=NROOT 
KKK=NW0RK*1 
DO 145 r»l,KKK 
UB< I )=UWORMKKK*l-l 1 
145 VBt 1 ) * VWORK I KKK*l- I 1 

CALL QUAD! NWOR K ,UB , V B , NROOT , UROOT . VROOT , MULT I 
GO TO 00 

150 HUL T I NROOT 1 = MULTI NROOT 1*1 
NOMULT * NOMULT * l 
GO TO 125 
110 UX 1 *UX2 
VX1=VX2 
UX2=UX3 
VK2=VX3 
UX3=UX4 
VX3=VX* 

UPX1=UPX2 
VPX 1=VPX2 
UPX2=UPX3 
VPX2=VPX3 
UPX3*UPX4 
VPX3 =VPX4 

1 T£R= I TER* i 
GO TO 50 

1090' FORMAT <///,l X.65HC0EFFIC IENTS OF OEFLATEO POLYNOMIAL FOR WHICH NO 
1 ZERO S WERE FOUND// 1 

lOHO FORMAT {///IX, l 3HR00T S OF Q I X 1 , 83X, 2 1H1NI TI AL APPROXIMATION//) 

1070 FORMAT I // » 43H NO ZEROS WERE FOUND FOR POLYNOMIAL NUMBER >12) 

1086 FORMAT C 2 X • 5HR0QT ( • I 2 ,4HI * ,023.16,3H ♦ >D23.16,2H 1 , 19X , 23HS0LVED 
1 BY OIRECT METHOD) 

1035 FORMAT (3X,A2,12,4H) = ,023.16,3H * ( 023.16>2H II 

1050 FORMAT Cfl2X, 023. 16, 3H ♦ ,023.16, 2H 1 / 82K.023. 16> 3H ♦ ,023.16,2H t/l 
1085 FORMAT < 2X ,5HR00T ( , 12 >4H)' = >023.16, 3H * >023.16, 2H 1 > 1 8X , 023 . 1 6, 3H 
1 * ,023. 16, 2H I) 

END 


0146 
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TABLE F.III (Continued) 


0001 


0002 


0003 

000 * 


ooos 

000b 

OOOT 

0008 

0009 

0010 
0011 
0012 
0013 
OOU 
0015 
OOlb 

0017 

0018 

0019 

0020 
0021 
0022 
0023 
002 * 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 
003 * 
0035 
00 36 

0037 

0038 

0039 
00*0 
00*1 
00*2 
00*3 
00 ** 
00*5 


SUBROUTINE BETTER IUA ,VA, NP»UROOT» VROOT, NRQQT » URAPP, VRAPP, IftOOTi'MUl 
ITl 

C ********************************* **•*•**•••******•**•***•«*•*****« ********** 


c * • 

C * SUBROUTINE SETTER ATTEMPTS TO IMPROVE THE ACCURACY OF THE ZEROS FOUND * 

C * BY USING THEM AS INITIAL APPROXIMATIONS WITH MULLER * S MgTMOO APPLIED TO * 

C • THE FULL, UNOEFLATEO POLYNOMIAL* * 

C * * 


c #********#**##*%###******#*#***##*****i(i*****#*******-##******#**********A*6** 

DOUBLE PRECISION UROOT , VROOT , UA, V A.UBAPP , V6APP ,UX 1 , VX l ,UX2 ,VX2 ,UX3 
l,VX3.UP*l,VPXl,UP*2, VPX2,UPX3,VPX3,UB,VB,UROOTS,VROOTStEPSRT,UX*«V 
2 X* ,UR APP , VRAPP i E PSO, EPS, UO* , VO* , UH3t VH3 
LOGICAL CONV 

DIMENSION UROOT 1251, VROOT I 251, UA 1261, VA 1261 , US APP I 25,3) , VBAPPI 25,3 
1) .UBI261 » Vftl 26 1 , UROOT SI 2 S I , VROOT S ( 2 S | .URAPPI 25,31 , VRAPPI25, 3) , MULT 
31251 

DOUBLE PRECISION EPS1,EP$M 

COMMON EPSRT.EPS1 , EPS, EPSO ,£PSM, 102 ,MAX 

IPINROOT.LE.ll RETURN 

L=0 

00 10 I » 1 ,NROOT 
US APP { I, l )*UROOT I l 1*EPSRT 
VBAPPI (,1 NVROOTil l*EPSRT 
UBAPPt 1,2 )=UROQT 1 1 I 
VBAPPII,2)=VROOT1 I) 

U8APPI I * 3) -UROOT 1 1 1*<2«0-EP5RTI 
10 VS APP.I I , 3 >» VROOT I I 1*(2.0-EPSRT1 
DO 100 J=l,NROOT 
UX1*UBAPP! J, 1) 

VX1=VBAPPI J, 1) 

UX2=U8APPIJ,21 
VX2 = VBAP P I J, 2) 

UX 3=U6 APPI J , 31 
VX3*V8APP< J,3» 

ITER=1 

CALL HORNER CNP,UA, VA,UX1 ,V XI , UB , VB,UPX1 , VPX 1 1 
CALL MORNERINP,UA,VA,UX2,VX2,UB.VB,UPX2,VPX2) 

20 CALL HORNER I NP,UA, VA ,UX3,VX3,US ,V8,UPX3,VPX3I 

CALL CALC!UXl,VXl,UX2,VX2,UX3,VX3,UPXl t VPXl,UPX2,VPX2,UPX3,VPX3,UX 
1*,VX*,U0*,VQ*,UH3, VH3 1 
30 CALL TESTIUX3,VX3,UX*,VX*,C0NV1 
I F I CONV 1 GQ TO 50 
IFUTER.LT.MAX1 GO TO *0 
WRITE! 102, 10001 J , UROOT l J> , VROOT I i 1 , MAX 
WRITE! 102,10101 UX*,VX* 

(FI J *LT • 1 ROOT! GO TO 33 
IF( J.EQ. IR0QT1 GO TO 35 
GO TO 100 
33 KKK= I ROOT - 1 
00 3* K= J.KKX 
UR A PP| K , 1 1 -URAPP I K+l , 1 1 
VRAPP IK, 1>=VRAPP<KM, l 1 
URAPPIK,21=URAPP1K*1,21 
VRAPP|K,21 = VRAPP|Ml,2l 
URAPP IK, 3l=URAPP(K*-l» 3 1 
3* VRAPPIK,3>=VRAPP(K*l,3> 

35 I ROOT= i ROOT- 1 
GO TO 100 



0046 

0047 
0040 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 


0071 


TABLE F, III (Continued) 


40 UK 1=0X2 

m=v*2 

UX2=UX3 
VX2«VX3 
UX3=UX4 
VX3»VX4 
UPX1=UPX2 
VPX1=*VPX2 
UP X 2 =UPX 3 
VPX2*VPX3 
ITER’ITERM 
CO TO 20 
50 L»L*l 

URQOTS IH 3 UX4 
VRGOTS<U=VX4 
100 CONTINUE 

If(L.EQ.O) CO TO 120 

□□ no i»i,t 

UROQTI I )-UROOTSI I 1 
110 VHQOT ( I )»VROOT Si!) 

NRQOT =i 
RETURN 
120 NROOT = 0 
RETURN 

1000 FORMAT I///42H IN THE ATTEMPT TO IMPROVE ACCURACY. AQ0T(,I2,4H» » . 
ID23.L6.3H * .023.16.2H 1 724H DIO NOT CONVERGE AFTER .I3.11H HERAT 
2 IONS ) 

1010 FORMAT 1 30H THE PRESENT APPROXIMATION IS .D23.16.3H * .023.16.2H 1/ 
l/> 

END 


0072 



247 


TABLE F. Ill (Continued) 


0001 


0002 

0003 

000 * 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 
001 * 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 
002 * 

0025 

0026 
0027 
002 8 


0029 


0030 


SUBROUTINE ALTER IX 1R *X1I »X2R , X2 1 , X3R , X3J , WALTER, I T I HE ) 

C ******************************************* *** ********************* ****** 

C * 

C * SUBROUTINE ALTER ALTERS THE INITIAL APPROX IMAT IONS WHICH PRODUCE NO 

C * CONVERGENCE TO A ZERO. THIS IS OQNE A MAXIMUM Of 5 TIMES FOR EACH ROOT. 

C * 

c *********************** *** ******************** ** ************************* 

DOUBLE PRECISION X1R , XI l » X 2R«XZ l , X3R .X31 , EPS 1.EPS2 »EP$3,Rt BETA 

DOUBLE PRECISION EPS5.EPS5 

COMMON EPS1 »EPS2 ,EP$3 ,EPS5 ,EPS5 t 102 ,MAX 

IF! I TIME.NE.O! GO TO 5 

I T 1 ME * 1 

WRITE! 102 * 10101 MAX 
5 if INAL TER* EQ .01 GO TO 10 

WRITE! (02,1000) X 1 R , XU » X2R , X2 1 , X 3R, X3 1 
GQ TQ 20 

10 R»DSQRT! X2ft*X2R«-X21*X2ll 
BETA=DATAN2(X21,X2R> 

WRITE! 102,1020) X 1R , X 1 1 , X2R , X2 1 » X3R , X3 1 
20 NALTER = NALT6RU 

1FINALTER.GT.5) RETURN 
GO TO 130,50,30, AO, 30), WALTER 
30 X2R=-X2R 
X2I--X21 
GO TO 50 

50 BETA=BETA*l.05T1976 
X2R=R*0C0S(BETAI 
X2I=R*0S IN(BETA) 

50 XIR=0.9*X2R 
XI 1 = 0* 9*X2I 
X3RM.l*X2R 
X3l-l»l*X2I 
RETURN 

1000 FORMAT !iX«5HXi - .D23.16.3H * t023.16.2H I « 10X, 22HALTERE0 APPROXIM 

1 AT {DNS/ IX » 5HX2 * ,D23.16,3H * .023.16.2H 1/IX.5NX3 » ,D23.16,3H * 
2,023.16, 2H I/l 

1020 FORMAT! IH0.5HK1 a ,023.16,3H * .023.I6.2H 1, 10 X, 2 2H INITIAL APPROX! 
IMATIONS/1X.5HX2 = ,023.16,3H ♦ .023.16.2H I/1X.5HX3 - tD23.l6.3H ♦ 

2 ,D23.16,2H I/) 

1010 FORMAT I ///1X,55HN0 CONVERGENCE FOR THE FOLLOWING APPROXIMATIONS AF 
ITER ,!3,12H ITERATIONS.//! 

END 


0031 
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TABLE F. Ill (Continued) 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 
00 16 
0017 
0019 
0019 


SUBROUTINE GENAPPI APPR»APPI»NAPP, X START) 

C ********************************* ****************************** ************* 


c * *' 

C * SUBROUTINE GENAPP GENERATES N INITIAL APPROXIMATIONS* WHERE N IS THE * 

C • DEGREE OF THE ORIGINAL POLYNOMIAL. * 

C * * 


C **************************************************************************** 

DOUBLE PRECISION APPR, APP l * XSTART, EPS l ,EP52, EPS3 , BET A 
DOUBLE PRECISION EP$RT*EP$4 
DIMENSION APPR 125* 31 «APPH25,3) 

COMMON EPSRT*EPS1*EPS2,EPS3*EPS4,I02»MAX 

IFIXSTART.EQ.O.O » XSTART«0.5 

BETA=0. 2617994 

DO 10 1*1* NAPP 

APPR! 1.2 )=XSTART*DCOS! BETA) 

APP I 1 1 ,21=X$TART*D$IN(BETA) 

BETA*BETA»0 .5235998 
10 X START* XSTART*0. 5 
DO 20 I* l »NAPP 
APPR II, 1 >=0.9*APPR1 1,21 
APP I ( I , 1 ) *0. 9* APPI | I ,21 
APPR! I, 31=1. 1* APPR 1 1,21 
20 APP 1 1 I *3 1 *1 . 1*APPI t i ,2 1 
RETURN 
END 
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TABLE F.IH (Continued) 


000 1 SUBROUTINE TESTIUX3 .VX3VUX4 , VX4 ,C0NV) 

C ***** *********************************************************************** 


C * * 

C * SUBROUTINE TEST CHECKS FOR CONVERGENCE OF THE SEQUENCE OF APPROX- * 

C * IMAT IONS BT TESTING THE EXPRESSION * 

C * ABSOLUTE VALUE OF IXIN+ll-XIN))/ 40 SOLUTE VALUE OF X(N*1). * 

C * WHEN IT IS AS SHALL AS DESIRED* CONVERGENCE IS OBTAINED. * 

C * * 


C **************************************************************************** 


0 002 


DOUBLE PRECISION UX 3 , VX3 ,UX4 , VX4 ,EP SRT ,E PSO.E PS, AAA, UDUMMY. VDUMMY 
1DEN0M 

0003 


LOGICAL CONV 

0004 


DOUBLE PRECISION EPSl.EPSM 

0005 


COMMON EPSRT,EPSL,EPS,EPSa,EPSM.I02,MAX 

0006 


UDUMMY =>UX4-UX3 

0007 


VDUMNY=VX4-VX3 

0008 


AA A = DSQR T | UDUMMY • UDUMMY + VDUMMY* VDUMMY ) 

0009 


DENOM=DSQRTIUX4*UX4*VX4*VX4) 

0010 


ifidenom.lt. EPSO) GO TO 20 

oon 


IF I AAA/DE NOM.LT .EPS) GO TO 10 

0012 

5 

CONV*. FALSE. 

0013 


GO TO 100 

0014 

10 

CONV=. TRUE. . 

OD 1 5 


GO TO 100 

0016 

20 

IFIAAA.LT.EPSO) GO TO 10 

0017 


GO TO 5 "> j- 

0018 

100 

RETURN », .V 

0019 


END 



0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 


SUBROUTINE HORNER! NA , UA, VA.UX.VX ,Ufl ,VQ ,UPX f VPX I 
C ***** *********************************************************************** 
C * * 

C • HORNER’S METHOD COMPUTES THE VALUE OF THE POLYNOMIAL P<X), AT A POINT 0. * 

C * SYNTHETIC DIVISION IS USED TO OEFLATE THE POLYNOMIAL BY QIVIOING OUT, THE * 

C * FACTOR IX-OJ. * 

C * . * 

c ****************#***************************'********************** ********** 

oouftie precision ux,vx,upx, vpx.ub. vb.ua.va 
DIMENSION UA 126) »VAI 26 ) , UB 1 26) , V0I 26) 

UBIlhUAIl) 

VB11)=VM1I 

NUM*NA*1 

00 10 1=2, NUM 

UBf I l=U4t I ) * I UB ( l-l l*UX-VB(I-l)*VX) 

10 VBdhVMIlHVBI l-U *UX*UB( I - 1 > *VX I 
UPX=UB I NUM) 

VPX=V3INUM1 

RETURN 

END 
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TABLE F.III (Continued) 


0001 


0002 

0003 


0004 

0005 

0006 
000 ? 
0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 
0 016 
001 ? 
0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 
00 28 
0029 
00 30 

0031 

0032 

0033 

0034 

0035 
00 36 
003? 

0038 

0039 

0040 

0041 

0042 

0043 

0044 


SUBROUTINE C ALC 1 UX l , VX l , UX2 , VX2 , UX3, VX3 ,UPX1 , VPX1 ,UPX2 ,VPX2 ,UPX3 »V 

C ****************** *****«»«**«***« ***•*« **'*** ^ ***************•*******•«****>* 


C * * 

C * GIVEN THREE APPROXIMATIONS XIN-21, XIN-U, ANO XIN1» SUBROUTINE CALC * 

C * APPROXIMATES THE POLYNOMIAL BY A QUADRATIC ANO SOLVES FOR THE ZERO OF * 

C * THE QUADRATIC CLOSEST TO XINI. THIS ZERO IS THE NEW APPROXIMATION • 

C * X1N*1) TO THE ZERO OF THE POLYNOMIAL. * 

C * * 


C * ft**************************************** ft***************** «•***«***'* ***** 

IPX 3 , UX4, VX4,UQ4, VQ4,UH3, VH3l 
DOUBLE PRECISION ARGltARGZ 

DOUBLE PRECISION UPX 3 ,VP X3 ,UPX2, VPX2 ,UX1 , VXl ,UXZ, VX2 ,UX3 »VX3 *UPX l , 

1 VPX1 ,UH3 ,VH3,UH2,VH2,UQ3,VQ3,UQ,VD,UB,VB,UC,VC»UOISC,VDISC,UCCC,VC 
2CC »UDEN1 1 VDEN1 »UDEN2 ,VDEN2 ,UQ4, VQ4,UX4»VX4,EPSRT* EPSO.EPS ,UDDD, VDD 
3D, AAA,BBB,R AD, UAAA , VA AA , UBBB , VBBB 
DOUBLE PRECISION THET A, ANGLE , UTEST , VTEST 
DOUBLE PRECISION EPS1.EPSM 
COMMON EPSRT,EPS1, EPS,EP50,EPSM, 102, MAX 
UH3-UX3-UX2 
VH3=VX3-VX2 
UH2=UX2-UXl 
VH2=VX2- VXl 
BfiB=UH2*UH2+VH2*VHZ 
UQ3=(UH3*UH2*VH3*VH2 I/flBB 
VQ3=I VH3*UH2-UH3*VH2)/888 
UODO=l .0 *UQ3 
VDDD=VQ3 

U0= I UPX 3- CUOQO*UPX2-VODO*VPX2 I I ♦ ( UQ3*UPXl~ VQ3* VPX It 

VD=I VPX3-IV0DD*UPX2*UDDD*VPX21 J*< VQ3*UPX l + U03*VPX 1 1 

UAAA=2.0*UQ3 

VAAA=2.0*VQ3 

UAAA*UAAAH .0 

UBBB , =UDOO*UDOO-VODD*VODD 

VBBfl=VDOO*UDDD*UDOD*VDDD 

UCCC=UQ3*UQ3-VQ3*V03 ' 

VCCC=VQ3*U03*U03*VQ3 

UB= UUAAA*UPX3-VAAA*VPX31-IU6BB*UPX2-VBBBPVPX2ll*IUCCC*UPXl-VCCC*V 
ipxu 

V0=C(VAAA*UPX3«-UAAA#VPX3l-(VBB6*UPX2*UBB8*VPX2)l*IVCCC*UPXl*UCCC*V 

IPX!) 

UC=UDDD*UPX 3-VDDO*VPX3 
VC=VDDO*UPX3«-U0DD*VPX3 

UDI SC=lUB*UB-VB*VBI-l4.0*< UD*UC-VO*VC I I 
VDl SC = I 2.0*1 VB*UB) I- 1 4.0 * I VD*UC+UD*VC> 1 
AAA=OSQRT IUO ISC*U0ISC*VDISC*VD1SC» 

IF( AAA. EQ. 0.0 1 GO TO 5 
GO TO 7 
5 THETA-0.0 
GO TO 9 

7 THE TA = 0ATAN2I VDI SC «U0 I SC I 
9 RAD=OSQRT< AAAI 
ANGLE *THETA/2.0 
UTEST=RAD*OCOSUNGLEI 
VTEST=RAD*OS INI ANGLE ) 

U0EN1-UB*UTEST 

VDEN1=VB*VTEST 

U0EN2=UB-UTEST 

VDEN2=V8-VTEST 



TABLE F. Ill (Continued) 


0045 


ARGI=U0ENI*UDEN1+V0EN1*VDEN1 

0046 


ARG2*UOEN2*UO£N2*VOEN2*VDEN2 

0047 


AAA=0SQRT 1 ARGi J 

0048 


3BB=DSQRT ( ARG2 1 

0049 


IF ( AAA.LT.BBB) GO 70 10 

0050 


IF(AAA.EO.O.O) GO 70 60 

0051 


UAAA=-2.0+UC 

0052 


VAAA*-2.0*VC 

0053 


UQ4= 1 UAAA+UDENl *VAAA+VDEN1 1/ARG1 

0054 


V04=lVAAA*U0EMl-UAAA*VDENn/ARGl 

0055 


GO TO 50 

0056 

10 

(F< fi68.£0»0,0t GO TO 60 

0057 


UAAA=-2.0*UC 

005B 


VAAA=-2.0*VC 

0059 


UQ4=IUAAA*U0EN2*VAAA*V0EN2J/ARG2 

0060 


VQ4 = t VAAA*UO£N2-UAAA*VD6N2 I/ARG2 

0061 


GO TO 50 

0062 

50 

UX4*UX3+ 1 UH3*U04— VH3+VQ4I 

0063 


VX4=VX3MVH3*UQ4«-UH3*VQ4) 

0064 


RETURN 

0065 

60 

UQ4= i« Q 

0066 


vq4=o.o 

0067 


GO TO 50 

0068 


END 
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TABLE. F, III (Continued) 


OOOl 


-SUBROUTINE COH$QT iUX»VX,UV,VV I 

c **♦**#♦♦♦*##♦♦*•♦♦♦#*♦♦*♦♦♦*♦#**♦*#*#♦*#*♦♦♦#♦**#♦♦**♦****♦♦*##•*#♦##♦*♦♦♦*♦ 
c • * 

C * THIS SUBROUTINE COMPUTES THE SQUARE ROOT OF A COMPLEX NUMBER. * 

C * * 

c ******* ****** **##******#** ************************************************** 


0002 


OOUBLE PRECISION UK, VX.UY, VV, DUMMY ,R .AAA ,BBB 

0003 


R^DSQRT (UX*UX+VX*VX) 

0004 


AAA = OSORnOA8S( <R *0X1/2.01 1 

0005 


8BB=D$QRT ( DABS ( ( R-UX) /2. 0 1 | 

0006 


IFIVX) 10,20,30 

OOOT 

10 

UY=AAA 

0008 


VY=-l.O*BBB 

0009 


GO TO 100 

0010 

20 

IF1UXI 40,50,60 

0011 

30 

UY=AAA 

0012 


VY= BBB 

0013 


GO TO 100 

0014 

40 

DUMMY® 0ABS1 UXl 

0015 


Uy=o.o 

0016 


VY=OSQRT (DUMMY! 

0017 


GO TO lOO 

0018 

50 

UY = 0 .0 

0019 


VY=0. 0 

0020 


go ra ioo 

0021 

60 

DUMMY=DABS IUX 1 

0022 


UY=DSORTI DUMMY! 

0023 


VY®0 .0 

0024 

100 

RETURN 

0025 


END 



APPENDIX G 


REPEATED G.C.D. - NEWTON’S METHOD 
1. Use of the Program 

A double precision FORTRAN IV program using the repeated G.C.D. 
method with Newton’s method as a supporting method is presented here. 
Flow charts for this program are given in Figure G. 2 while Table G. Ill 
gives a FORTRAN IV listing of this program. Single precision variables 
are listed in Table G.II. The single precision variables are used in 
the flow charts and the corresponding double precision variables can 
be obtained from Table G.II. 

This program is designed to solve polynomials having degree less 
than or equal to 25. In order to solve polynomials of degree N where 
N > 25, the data statement and array dimensions given in. Table G.I. 
must be changed. 

In this program both the leading coefficient and the constant 
coefficient are assumed to be non-zero. 
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TABLE G.I 

PROGRAM CHANGES NECESSARY TO SOLVE POLYNOMIALS OF DEGREE 
GREATER THAN 25 BY THE REPEATED G.C.D. - NEWTON’S METHOD 


Main Program 


Data Entry/1H1,1H2,. . . ,1H9,2H10,2H11,... ,2RXX/where XX - N+l 

UP (N+l) , VP (N+l) 

UAPP (N) , VAPP (N) 

UD0(N+1), VDO (N+l) 

UDDO (N+l ) , VDDO (N+l) 

UD1(N+1), VD1 (N+l) 

UD2(N+1), VD2 (N+l) 

UDDKN+I) , VDDl (N+l) 

UG(N+1) , VG (N+l) 

UD3 (2N+1) , VD3 (2N+1) 

UD4 (2N+1) , VD4 (2N+1) 

UZROS(N), VZROS(N) 

UAP(N), VAP(N) 

UROOT(N), VROOT(N) 

NULT(N) 

ENTRY (N+l) 


Subroutine PROD 

UH (2N+1) , VH (2N+1) 

UF (N+l) , VF (N+l) 

UG(N+1), VG(N+1) 

Subroutine ZROS 

UAPP (N) , VAPP (N) 

UROOT(N) , VRQOT(N) 

UQ(N+1), VQ (N+l) 

UQQ (N+l) , VQQ (N+l) 

UAP(N), VAP(N) 

UQD (N+l) , VQD (N+l) 

ENTRY (N+l) 

UROOTS(N), VROOTS(N) 

Subroutines GENAPP, GCD, NEWTON, DIVIDE, 
HORNER, and DERIV 

See corresponding subroutine in Table E.I. 


Subroutine ^UAD 

UROOT(N), VROOT(N) 
UA(N+1), VA(N+1) 
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2. Input Data for Repeated G.C.D, - Newton's Method 

The Input data for repeated G.C.D. - Newton's method is prepared 
as described for G.C.D. - Newton's method in Appendix. E, § 2 except 
that the item EPS4 on the control card (Figure E.2) is omitted. An 
example control card for the repeated G.C.D. - Newton's method is 
given in Figure G.l. 

3. Variables Used in Repeated G.C.D. - Newton's Method 

The definitions of variables used in repeated G.C.D. - Newton's 
method are given in Table G.II. For definitions of variables not 
listed in this table, see the main program or corresponding subprogram 
of Table E.VI. The notation and symbols used are defined in Appendix E, 

§ 3. 

4. Description of Program Output 

The number of the polynomial, control data, degree and coefficients 
of the polynomial are printed as described in Appendix E, § 4. 

All roots of multiplicity one are extracted first. Following the 
first row of asterixes, the message "THE FOLLOWING POLYNOMIAL, G(X) , 
CONTAINS ALL THE ROOTS OF P(X) WHICH HAVE MULTIPLICITY 1." This is 
followed by the coefficients of G(X) with the leading coefficient 
listed first. If there are no roots of multiplicity one, then the 
message "NO ROOTS OF MULTIPLICITY ONE" is printed. 

The roots of G(X) are printed under the heading "ROOTS OF G(X)»" 
These are the roots obtained before the attempt to, improve accuracy. 

The initial approximations producing convergence to the corresponding 
root are printed under the heading "INITIAL APPROXIMATION." The 
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message "RESULTS OF SUBROUTINE QUAD" means that the corresponding root 
was obtained from subroutine QUAD. 

The roots found as a result of attempting to improve accuracy are 
printed under the heading "ROOTS OF P(X>." Their multiplicity is given 
under the heading "MULTIPLICITIES . " The initial approximation is 
printed above where "NO INITIAL APPROXIMATION" means the same as 
"RESULTS OF SUBROUTINE QUAD." 

A line of asterixes is then printed. This procedure is then 
repeated for the roots of multiplicity 2,3,4, etc. until all roots have 
been found. 

5. Informative Messages and Error Messages 

The informative messages and error messages for repeated G.C.D. - 
Newton’s method are given below. For those not listed, see Appendix E, 
§ 5 . 

"NOT ALL ROOTS OF THE ABOVE POLYNOMIAL, G, WERE FOUND." This 
message indicates that some of the roots of the polynomial G(X) were 
not extracted. 

"QUAD FOUND XXX TO BE A MULTIPLE ROOT." XXX represents the value 
of the root found as a multiple root by Subrontine QUAD. 





Figure G.l Control Card for Repeated G.C.D. - Newton T s Method 
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TABLE G. II 


REPEATED GCD - NEWTON’S METHOD 


Single Precision Double Precision Disposition 

Variable Type Variable Type of Argument Description 

Main Program 


KD 

I 

KD 

I 

Number of distinct roots 

found 

ti 

I 

K 

X 

Number of roots found 


J1 

I 

J1 

X 

Multiplicity of given root 

DO 

C 

UDO , VDO 

D 

Array of coefficients of 

original polynomial 

NDO 

I 

NDO 

I 

Degree of original polynomial 

DDO 

c 

UDDG ,VDD0 

D 

Array of coefficients of 

derivative of D0(X) i.e. DO (X) 

NDDO 

I 

NDDO 

I 

Degree of DDO (X) 


D1 

c 

UD1 ,VDl 

D 

Array of coefficients of 

g.c.d. of D0(X) and DDO (X) 

ND1 

I 

ND1 

I 

Degree of D1 (X) 


DD1 

c 

UDD1 ,VDDl 

D 

Array of coefficients of 

derivative of D1(X) i.e. Dl’ (X) 

NDD1 

I 

NDD1 

I 

Degree of DD1(X) 


D2 

c 

TJD2 » VD2 

D 

Array of coefficients of 

g.c.d. of Dl (X) and DD1(X) 

ND2 

I 

ND2 

I 

Degree of D2 (X) 


D3 

c 

DD3,VD3 

D 

Array of coefficients of 

the product of DO(X) and D2(X) 

ND3 

I 

ND3 

I 

Degree of D3(X) 

4 

D4 

c 

UD4 , VD4 

D 

Array of coe f f ic ient s of 

the square of Dl.(X) 

ND4 

I 

ND4 

X 

Degree of D4 (X) 


G 

c 

UG,VG 

D 

Array of coefficients of 

the quotient D3(X)/D4(X) 

NG 

I 

NG 

I 

Degree of G(X) 


ZROS 

c 

UZROS ,V2R0S 

D 

Array of roots of G(X) 






Subroutine ZROS 


APROX 

c 

UAPROX,VAPROX 

D 

R Starting approximation (initial or altered) 
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TABLE Go II (Continued) 


Single Precision Double Precision 

Variable Type Variable Type 


Disposition 
of Argument 


Subroutine PROD 


Description 


M 

I 

M 

I 

E 

F . 

C 

UF,VF 

D 

E 

N • 

I 

N 

I 

E 

G 

c 

UG,VG 

D 

E 

MN 

I 

MN 

I 

R 

H 

c 

UH,VH 

D 

R 

LIMIT- 

I 

LIMIT 

I 


K 

I 

K 

I 



Degree of polynomial to be multiplied 

Array of coefficients of polynomial to be multiplied 

Degree of polynomial to be multiplied 

Array of coefficients of polynomial to be multiplied 

Degree of product polynomial H(X) 

Array of coefficients of product polynomial 
Number of coefficients of polynomial F(X) 

Counter 
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Figure G .2. (Continued) 
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Figure G.2. (Continued) 
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Figure G. 2. (Continued) 
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0001 


0002 

0003 

0004 


0005 

0006 

0007 

0008 

0009 
00 10 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
Q01 8 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 
00 40 


TABLE G* III 

PROGRAM FOR REPEATED G. C.D.-NEVTCON’ S METHOD 


•v# ************************************************** **■**•• ***♦#**• *********** 
* * 

* DOUBLE PRECISION PROGRAM FOR THE REPEATEO G.C.O. - NEWTON'S METHOD * 

* * 

* *: 

* THIS METHOD REPEATEOLV FINDS THE GREATEST COMMON DIVISOR OF TWO • 

* POLYNOMIALS IN ORDER TO EXTRACT THE ZEROS IN GROUPS ACCORDING TO * 

* MULTIPLICITY USING NEWTON'S METHOD. ALL ZEROS OF MULTIPLICITY 1 * 

* ARE EXTRACTED FOLLOWED BY THOSE OF MULTIPLICITY 2. ETC. * 

* * 
**************************************************************************** 

DOUBLE PRECISION EPS 1. EPS2 , EPS 3, UP , VP ,UAPP, VAPP ,UDO. VOO , UOOO , VDOO , 
lUDl,VOl,U02,VD2,UDDi,V0Ol,UG,VG,UD3»VD3,U04,VD4,UZRQS.VZR0S,UAP,VA 
2P,URQnT, VROOT, OENDM 
DOUBLE PRECISION XST ART 
DOUBLE PRECISION XENO 

DIMENSION ANAME!2),UP!26 ) , VP I 26 ) »UAPP < 25 » , VAPP I 2 5 ) .U00I26) ,VDO< 26) 
l r UDD01 261 ,VDDOI 26) ,UOl 126) , VO 1 1 2 6 1 ,UD2 l 2 6 ) ,VD2 1 26 ) ,UDDl < 26 > , VOO l ( 2 
26) .UGI26) , VGl 26 ),U03! 51) , V03! 51 1 ,UD4( 51 ) . VO 41 51) ,UZROS( 25) ,VZROS ( 2 
35)tUAPI25) .VAPI25) .UROQTI 2 5 > , VROOT ( 25 ) , MUL H 25 ) , ENTR Y! 26 ) 

COMMON EPS1 ,EPS2,EPS3,I02, MAX 
DATA AST ER/4H****/ 

DATA PNAME.GNAME/2HP! , 2HG(/ t D1HAME /3HD1 (/ 

DATA ENTRY/ 1H1 , IH2. IH3.1H4, 1H5, IH6, 1H7, 1 H8 , IH9 ,2H10 , 2H1 l ,2H12»2H13 
l, 2H14,2HlS,2Hl6,2Hl7,2Hl8,2Hl9,2H20,2H2l f 2H22,2H23,2H24,2H25,2H26/ 

DATA ANAME 111 » ANAME ! 2 ) /4HNEWT , 4HUNS / 

101 = 5 
102=6 

l READ! 101 ,10001 NUPOLY , NP ,NAPP , MAX ,EP5 1 » EPS 2 , £PS3. XST ART , XEND.KCHEC 
IK 

IFlKCHECK.EQ.il STOP 

WRITE! (02, 10201 ANAME III , ANAME I 2 I , NOPOLY 

WRITE! 102,20001 NAPP 

WRITE! 102,20101 MAX 

WRITE! 102,20701 EPSl 

WRITE! 102,2020 I EPS2 

WRITE! 102,2080) EPS3 

WRITE! 102,2040 1 XSTART 

WRITE! 102,20501 XENO 

WRITE! 102,2060) 

KKK= NP4- 1 
NNN=KKK+ 1 
00 5 ) =1 , KKK 
JJJ = NNN- I 

5 READ! 101 ,1010 ) UP! J J J ) ,VP ( JJ J ) 

IF(NAPP.NE.O) GO TO 22 
NAPP=NP 

CALL GENAPPIUAPP, VAPP, NAPP, XST ART) 

GO TO 23 

22 READ! 101, 1015) ( UAPP I I » ,VAPPII) , I =1 , NAPP) 

23 WRITE! 102,1030) NP 
KKK=NP* l 
NNN=KKK* 1 

DO ft 1 = 1 , KKK 
J JJ=NNN- 1 

8 WRITE! 102, 1040) PN AME, ENTRYl J J J ) ,UP { J JJ ) , VPI J J J I 
K=0 
K0=0 



■TABLE G. XIX (Continued) 


0041 


^1=1 

0042 


KKX=NP*1 

0043 


00 10 1 “1 »KKK 

0044 


udoi i )=upiii 

0045 

10 

VOOtl 1 = VP< 1 1 

OQ46 


NOO=NP 

004 7 


CALL DERIV{NOO,UOO»VOO.NDOO»UOOO,VOOO| 

0048 


CALL GCO ! NOO »UDO , VDO »NQDO, UDDO e VDOO ,ND1 *001 *V Dll 

0049 

20 

WRITEI 102,3000) 1 ASTER , I = 1 ,33) 

0050 


i F ( N01 .LE.l ) GO TO 30 

0051 


GO TO 40 

0052 

30 

UD2U) = 1.0 

0053 


VD2 < 1 ) =0 *0 

0054 


ND2*0 

0055 


GO TO 50 

0056 

40 

CALL DERI ViNOl.UDl ,VDl ,NDD1,UDD1»VDDU 

0057 


CALL GC0IND1 ,UDl .VD1 ,NDD1 , UDOI ,V0D1 ,ND2 ,UD2, VOZ) 

0058 

50 

IF!NIXHND2.LE.2*N01) GO TO 60 

0059 


GO TO 70 

0060 

60 

WRITE! 102,1025) Jl 

006 I 


GO TO 170 

0062 

70 

IFCNOUEQ.O) GO TO 80 

0063 


GO TO 90 

0064 

80 

KKK=NOOM 

0065 


DO 85 1=1, KKK 

0066 


UG ( 1 l=U00t M 

0067 

85 

VG{ I t=VOO| ( ) 

0068 


NG=NOO 

0069 


GO TO 110 

0070 

90 

IFIND2.EQ,0> GO TO 115 

0071 


CALL PROO!NOO,UOO,VDO,NQ2,U02,V02,N03,UD3, VD3I 

0072 

100 

CALL PRODiNDl , U0 1 , VO 1 , NO 1 , U01 , VD 1 . N04 , U04 , VO 4 ) 

0073 


CALL DIVIDE! N03 , UD3 , VD3* N04 ,UD4 , V04, NG, UG, VG 1 

0074 

110 

WRITE! 102,1035) Jl 

00 75 


KKK=NGH 

0076 


NNN=KKK* l 

0077 


DO 112 1*1, KKK 

0078 


JJJ=NNN- I 

0079 

112 

UR I TE 1 102, 1040 ) GNANE .ENTRY! JJJ) .UGUJJI ,VG! JJJ) 

ooe'o 


CALL Z EROS ! NG, UG, VG, NAPP, UAPP ,VAPP, J.UZROS , VZROS, JAP, UAP.VAP, ENTRY 


1 

i , X5TART »XENQ1 

0081 


IF(J.€O.OI GO TO 150 

0082 


WRITE! 102,11801 

0083 


I F | JAP, E Q«0 ) CO TO 120 

0084 


GO TO 130 

0065 

115 

KKK=NDO*l 

0086 


DO 116 1=1, KKK 

0087 


Uf>3! 1 ) = UOOI 1 1 

0068 

1 16 

V03! I)=VOO( I ) 

0089 


N03=N00 

0090 


GO TO 100 

0091 

120 

KKK= J6P+1 

0092 


WRITE! 102,1085) II .UZROSl 1 1, VZROS! II , JWI = KKK, J» 

0093 


GO TO 140 

0094 

130 

WRITE! 102,1190) ( 1 , UZROSl 1 1 .VZROS! It , Jl.UAPt l),VAP< 1 ), 1=1, JAP) 

0095 


IFIJAP.LT.JI GO TO 120 

0096 

140 

IFiJ.EQ.NG) GO TO 155 

0097 

150 

WRI TEI 102 ,1095) 
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TABLE G. XXI (Continued) 


'009 9 

0099 

0100 
0101 
OIOZ 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 
013 9 
0139 


0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 


IFI4.EQ.0I GO TO 170 
155 00 160 1 = 1, J 

UROQT ( KO* 1 1 =U2R0S 111 
VROOT I KO*J ) =VZROSI 1 1 
160 HUl T I KO* f ) = J 1 
K=< J*J1 >♦« 

KQ=KD* J 

IF(K.GE.NP) GO TQ 1 
170 J1=J1>1 

lFlNDl.te.il GO TQ 200 

DO IBO 1=1, NDl 

UDO 1 1 1 =UDl 1 I I 

VOOI I ) = VO 1 { 1 I 

UDDO ( I )=UDDl ( I I 

180 vooom«vooiu> 

UOOI N01+l)=U0l(N01+l) 

V DO ( NDl *1 ) = VD1 INOl+1 I 
NOO=ND1 
NDDO=NDDl 
KKK = N02U 
00 190 1=1, KKK 
UDll 1>=U02( 1 1 
190 V01 1 I ) =V021 1 1 
NO 1 = NO 2 
GO TO 20 

200 IF(NDt.EQ.O) GO TO 1 
KD=KD*l 

0EN0M=U0U2)*UD1 I21*V01121*VDI( 21 
UROOT1KU) = (-tlDl ( l »*UDl<2 l-VOl <1 )*V01!2) J/OENOH 
VROOT IKDI = C — VOlt 1I*UDU 2 J *U0 1 1 1 > * VO 1 ( 2 1 ) / DENOM 
MOL T1 KO I = J1 

WRITE! 102 ,30001 1 ASTER. 1 = L ,331 

WRITE! 102,10351 Jl 

KKK=ND 1*1 

NNN=KKK *• l 

00 210 1 = 1, KKK 

J JJ=NNN- I 

210 WRITE! 102,1100) DINAME, ENTRY! JJJt .UDKJJJI ,V01<JJJ> 

WRITE! 102,1 180) 

WRt TE C 1D2, 1005) MD.UROOTIKO) , VROOT I KO) , Ji 

GO TO 1 

1020 FORMATUHl,10X,4BHREPEATEO USE OF THE GREATEST COMMON DIVISOR AND 
1 , A4, A4 , 5 AN METHOD TO EXTRACT ROOTS AND MULTIPLICITIES OF PQLYN0N1 A 
2LS/ MX, 1BHPOLYNOMIAL NUMBER ,12///) 

1025 FORMAT! ///I X.25HN0 ROOTS OF MULT l PL I Cl TV , 1 2// I 

1035 FORMAT ( ///IX ,87hTHE FOLLOWING POLYNOMIAL, G!X» t CONTAINS ALL THE R 
100TS OF P ! X ) WHICH HAVE MULTIPLICITY ,I2//1 
1085 FURMA T ( 2 X » 5HROOT t , I 2 *4H) = ,023.l6,3H ♦ ,D23.16,2H I , 7X , I 2, 1 8X, 25H 
1 NO INITIAL APPROXIMATIONS) 

1095 F0RMATI///1X, 5 iHNOT ALL ROOTS OF THE ABOVE POLYNOM 1 AL ,G, WERE FOUN 
ID// I 

1000 FORMAT! 3( I 2, IX), 9X, I 3, IX, 310 6. 0,1X1, 20 X, 2107. 0,lX), ID 
1010 FORMAT (2030.0) 

1015 FORMAT (2030.0) 

1030 FORMAT ( IX *22HTHE DEGREE OF P(XI IS ,I2,22H THE COEFFICIENTS ARE// 
1) 

1040 FORMAT !2X,A2,A2, 4HI = ,023.16,3H ♦ ,023.16,2H II 
1100 FORMAT !2X,A3,A2,4HI = ,023.16, 3H ♦ ,023.16,2H |) 
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TABLE G. Ill (Continued) 


0150 ITBO “FORMAT 17// I'X « l 3 HR DOTS OF P IX » , 52X * 1 4HMUI.T IPL 1C IT 1 E$. 1 7X , 21HINI T 1 AL 

1 APPROXIMATION//! 

0151 1190 F0RMATI2X,5HR30TI , 12, AH) * ,023. 16, 3H *■ ,023. 16, 2H I , 7X , 12, 7X,023. 

116, 3H ♦ ,023,16, 2H II 

0152 2000 FORMAT I IX.A1HNUM8ER OF INITIAL APPROX IHAT 1 ONS GIVEN. ,121 

0153 2010 FORMAT 1 IX, 29HMAX I MUM NUMBER OF 1 TERA T IONS. , UX , 13) 

0154 2020 FORMAT UX.21HTEST FOR CONVERGENCE., 13X ,09,2) 

0155 2040 FORMAT ( IX.23HRAOIOS TO START SEARCH, , 1 IX, 09. 21 

0156 2050 FORMAT ( IX, 21 HR AO f CIS TO END SE ARCH. , l 3X .09 . 21 

0157 2060 F0RMATI//1XJ 

0158 2070 FORMAT! IX, 34HTEST FOR ZERO IN SUBROUTINE GCP. ,09.21 

0159 2080 FORMAT t IX, 34HTEST FOR ZERO IN SUBROUTINE QUAD. ,09.21 

0160 3000 FORMAT(/////lX,A3,32A4| 

0161 ENO 
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0001 


0002 

0003 

OOOA 

0005 

0006 

000 7 
QOGB 

0009 

0010 

001 1 
0012 
0013 
00 l A 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 


0001 


000 2 
0003 
OOOA 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 


TABLE G . I II ( Coil t inued ) 


SUBROUTINE PROO<M,UF »VF j'N,UG,VG, MN.UH.VHl 

C ************* ****************************************************** ********* 


c * * 

C * GIVEN POLYNOMIALS RUT AND S(X>, THIS SUBROUTINE COMPUTES THE * 

C ♦ COEFFICIENTS OF THE PRODUCT POLYNOMIAL HXI » R<X).S<XI. * 

C * * 


C ******** ** * ** ***************************************** * ****************** *** 

DOUBLE PRECISION UH, VH,UF , VF , UG , VG 

DIMENSION UHI51I » VHI 5 1 I » UF I 26 1 « VF < 26 ) »UG I 261 » VGI 26 1 

MN=M*N 

K.KK»MN*1 

DO 100 1 = 1. KKK 

X * 1 

UHI I 1=0.0 
VHI I } = 0. 0 

IF(I.LE.M*U GO TO 10 
LIMIT =M + 1 
GO TO 20 
10 L I M IT = I 
20 DO 50 J*I * LI MI T 

IFIK.GT.N*n GO TO 50 
IF( J+K.EQ.I+ll GO TO AO 
GO 70 50 

AO UHI I l = UHl I I*<UFIJ1 *UG( K l-VFI J P *VG < KJ I 
VHI I 1 =VHI I ) MVFI JI*UGIX) *UFm*VG!K! > 

50 K = K-l 
100 CONTINUE 
RETURN 
END 


SUBROUTINE GEN APP (APPR , A PP I , NAPP , X START! 

C **************************+***+**** ***************************************** 


C * * 
C * SUBROUTINE GENAPP GENERATES N INITIAL APPROXIMATIONS. WHERE N IS THE * 
C * DEGREE OF THE ORIGINAL POLYNOMIAL. * 
C * * 


C **************** ****************************** ****************************** 

DOUBLE PRECISION APPR , APPl , X S T Afi T, BE TA , £ P51 . EPSZ.EPS 3 

DIMENSION APPRI251, APPII25) 

COMMON EPS1 ,EPS2 , EPS3 , 102 , MAX 
IFI XSTART.EQ.O.O) X5TART®0.5 
0ETA=O. 2617994 
00 10 I =1 »NAPP 
APPR I I ) = X ST ART *OCOS I BET A I 
APPI m- c XSrARr*OSiN( OETAI 
BETA=8ETA*0.52359aS 
10 XSTART»XSTART*0.5 
RETURN 
ENO 
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TABLE G.XIX (Continued) 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
001 1 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 


SUBROUTINE ALT ER ( XOL OR* XOLOI , NALTER. 1 T IME ) 

C * ***************** **«*«*»»** ******* •«»•«* ********** *************** ********* 

C * I 

C * SUBROUTINE ALTER ALTERS THE INITIAL APPROXIMATIONS WHICH PRODUCE NO 

C * CONVERGENCE TO A ZERO. THIS IS DONE A MAXIMUM OF 5 TIMES FOR EACH ROOT. 

C * i 

C ********************** ***************************************************** 
DOUBLE PRECISION XOL DR . XOLDI , A8 XOLD, BET A , EPS 1 . EPS2 , EPS3 
COMMON EPSl»€PS2»EPS3« 102. MAX 
I F t IT1ME.NE.0) GO TO 5 
ITIME =1 

WRITE! 102,1010 I MAX 
5 IF! NALTER. EQ. 01 GO TO 10 
WRITE! 102, 1000 1 XQLOR, XOLDI: 

GO TO 20 

10 ABXQLD = DSQRT{(XOLDR*XDLDRIMXOLQ1*XOLOI) I 
BET A=0AT AN2( XOLO I, XOLORI 
WRITE! 102.10201 XQLOR, XOLDI 
20 NALT£R=NALT£R* l 

I F ! NALTER. GT . 5 ) RETURN 
GO TO (30, 40, 30,40,30), NALTER 
30 XULOR=-XOLDR 
XQLDl=-XQLDI 
GU TO 50 

40 BEIA=BETA*i. 0471976 

XOLOR=ABXQLD*OCaS! BETA) 

XOLOI = A3 XOLD*OS INI BETA) 

50 RETURN 

1000 FORMAT !1X, 023.16, 3H ♦ ,D23.16,2H I, IOX, 21 HALTERED APPROXIMATION) 

1010 FORMAT ( ///IX.54HNQ CONVERGENCE FOR THE FOLLOWING APPROXIMATIONS AF 
ITER ,13, 1 2H ITERATIONS.//) 

1020 FORMAT (/IX, 023. 16, 3H *■ .023. 16.2H I , IOX .21HINITIAL APPROXIMATION) 

END 
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0001 


0002 


0003 

0004 


0005 

0006 

0007 

0008 

0009 

0010 
oo n 
00 12 
0013 
00 14 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 
00 24 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 
00 34 
00 35 

0036 

0037 
00 3B 

0039 

0040 

0041 

0042 

0043 

0044 


TABLE G. Ill (Continued) 

SUBROUTINE ZEROS! NO, UQ, VQ, NAPP , UAPP. V APP , J , UROOT, VROOT, JAP,UAP,VAP 
1, ENTRY, XSTART.XENDI 

C ***************** *********** ************************ ******** *********** 


C * * 
C * NEWTONS METHOD EXTRACTS THE ZEROS AND THEIR MULTIPLICITIES Of A * 
C * POLYNOMIAL OF MAXIMUM DEGREE 25 BY COMPUTING A SEQUENCE OF APPROX- * 
C * I MAT I ONS CONVERGING TO A ZERO OF THE POLYNOMIAL USING THE ITERATION * 
C * FORMULA f * 
C * XlN+ll * XINI-PIX(N) l/PMXINH. * 
C * . * 


C **************************************************************************** 

DOUBLE PRECISION IJ AP P , VAPP ,UAOOT , VROOT ,U ZRO, VZRO , UO , VQ, UOUMMY , VOUH 
1 MY,UQQ»VQQ,UAP, VAP,UQO,vqo, UROOTS.VROOTS.EPS 1, EPS2.EPS3.UAPROX.VAP 
2R0X 

DOUBLE PRECISION XEND.XSTART 

DIMENSION UAPPI251 , V APP I 25 ) .UROOT I 25 I , V ROOT! 25 ) , UQ! 26 I , VQ ( 26 1 , UQQ! 

1261 , VQQ (26 I , UAP ! 251 .VAP! 25 1 ,UQO ! 261 , VQO 1 261 .ENTRY 1261 ,UAOOTS!251 ,V 
2 ROOT S { 2 5 ) 

COMMON EPSlfEPS2.EPS3.IQ2.MAX 
DATA QQNAME.QNAME/3HQQI , 2HQI f 
LOGICAL CONV 
J=0 

IT I ME = 0 

1FINQ.GE.3I GO TO 85 
GO TO 110 
B5 KKK = NQ + 1 

00 90 1=1, KKK 
UQQ 1 1 I = UQ ( I 1 
90 VQQ! I l-VQI I 1 
NQQ=NQ 
GO TO 120 

110 CALL QOAO(NQ,UQ,VQ, J ,UROOT , VROOT I 
J AP = 0 
GO TO 310 

120 00 200 1 = 1, NAP P 
I ALTE R=0 
UAPROX =U APP I II 
VAPROX= VAPP I I ) 

130 CALL N6WTON(UAPROX,VAPftOX, NQQ, UQQ, VQQ, UZRO, VZRO, CONV) 

I F I CONV 1 GO TO 160 

CALL ALTERIUAPP1 ll,VAPP( I 1 , 1 ALTER , IT I ME I 
IF! IALTER.GT.5I GO TO 200 
UAPR0X=UAPP1 II 
VAPROX=VAPP I n 
GO TO 130 
160 J = J + 1 

UROOT I J I =OZRO 
VROOT! J1=VZR0 
UAP! J) =UAPROX 
VAP! J) = V APROX 

CALL HORNER !UZRO,V ZRO, NQQ, UQQ, VQQ»UQO,VQD, UOUMMY, VDUMMY1 
00 ISO 11=1, NQQ 
UQQ! I 1 )=UQOl 11*11 
180 VQO! I 1 1 = VQO ! 11 + 11 
N CQ=NGQ- 1 

IF1NQQ.GE.31 GO TO 200 
J A P= J 
GO TO 220 
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TABLE G. Ill (Continued) 


004 5 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 
00 71 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 
009 8 

0099 

0100 
Old 
0102 


200 CONTINUE 

IF(J.GE.NQ) GO TO 205 
IF(XEND.EQ.O.OI GO TO 205 
IF(XSTART.GT.XENO) GO TO 205 
NAPP=NQ 

CALL GENAPP! UAPP » VAP P.NA PP .XSTART 1 
GO TO 120 

205 IFINQQ.LE.2l GO TO 210 
WRITE! 102, 1200) 

KKK=NQQ+ 1 
NNN=KKK+l 
DO 157 L “ 1 , KKX 
JJJ=NNN-l 

157 WRITE! 102,11001 GQNAHE .ENTRY ! J J J) »UQQ! J J J I , VQG! J J J I 
210 IFCJ.EQ.Ol GO TO 310 
JAP = J 
GO TO 230 

220 CALL QUADINOQfUQQ.VOOtJ, UROOT. VROOT I 
230 WRITE! 102.1 1321 

WRITE! 102,11331 II .UROOT 1 1 I , VROOT 1 1 > ,UAP1 1 1 , VAPU) » I * L . JAPJ 
IF! JAP.LT. JJ GO TO 235 
GO TO 240 
235 KKK=JAP+1 

WRITE! 102,11341 II . UROOT (11 , VROOT Ml , 1 = KKK , J I 

240 Jl = 0 

DO 300 1 = 1 , J 

CALL NEW TON! UROO Till .VROOT! I I , NQ.UQ, VQ, U2R0, VZRO, CON VI 
IFIC0NV1 GO TO 280 

WRITE! 102,1 1401 I .UROOT I I ) , VROOT 1 1 ) , MAX, NO 

KKK=NQ+l 

NNN=KKK+l 

DO 242 L = 1 » KKK 

JJJ=NNN-L 

242 WRITE! 102,10401 QNAME , ENTRY! -JJJ1 ,UQ( JJJ1 .VQIJJJl 
IF! I. IT. JAPI GO TO 241 
IF! I.EQ. JAPI GO TO 250 
GO TO 300 

241 KKK=JAP-l 

DO 245 1 1=1 ,KKK 
UAP ( m=UAP( 11 + 11 
245 VAPI III =VAP! U + l » 

250 JAP= J AP- 1 
GO TO 300 
260 Jl=Jl+l 

URUQTS! Jll=U2R0 
VROOTS ( Jl »=V2R0 
300 CONTINUE 
J = J1 

IFIJ.FO.Ol GO TO 305 
on 303 l=l»J 
UROOT! 1 ) =UROOT S I I » 

303 VRUOT ( I 1 = VROOTS ( 1 1 
GO TO 310 

305 WRITE! 1U2.1150) NQ 
KKK=NQ+ 1 
NNN=KKX*1 

00 306 L=l.KKK 
J J J=NNN-L 
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0103 

0104 

0105 

0106 
0107 

0100 

0109 


01 10 

0U1 

0112 

0113 


TABLE G.III (Continued) 


306 WRITE! 102,10401 QN AME, EM TRY! J J J J ,UQ(JJ J ) , V01 J J J ) 

310 RETURN 

1200 FORHAT I / // 1 X * 70HCQEFF IC I ENTS OF THE DEFLATED POLYNOMIAL FOR WHICH 
1 NO 2ER0S WERE FOUND.//) 

1132 FORMAT l ///l X , 1 3HR00T S OF G ( X ) ,84X , 21 H INI T I AL APPROXIMATION//) 

1133 FORMATI2X»5HRQ0Tl , 12, 4Hl * ,023.16,3H ♦ »D23.16,2H I , 1 7 X , 023 . 1 6 , 3H 
1 *• ,D23.16,2H I) 

1134 FORMAT ( 2X,SHR0QT ( ,12 *4H) - .023.16.3H * ,023.16,2H 1 , 22X, 26HRESULT 
IS OF SUBROUTINE QUAD) 

1140 FORMAT { // / , l X ,40HNQ ROOTS FOR INITIAL APPROX 1MAT ION ROOT!, 12, 4H) = 
1 *023. 16, 3H ♦ ,023.16,28 f/6H ANO ,I3,40H ITERATIONS ON THE POLYN 
20MIAL OF DEGREE ,12, 19H WITH COEFFICIENTS//) 

1150 FORMAT!///, 1X.45HN0 ROOTS FOR THE POLYNOMIAL Q1X) OF OEGREE * ,12, 
1 3fiH WITH GENERATED INITIAL APPROXIMATIONS//) 

1040 FORMAT (2X,A2,A2,4HI « .023,16,38 * ,023.16,28 I) 

1100 FORMAT <2X, A3 ,A2 ,4H) = ,023.16»3H ♦ ,023.16,2H i) 

END 
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TABLE G.IH (Continued) 


0001 


0002 

0003 

0004 

0005 

0006 
0C07 
0008 

0009 

0010 
00 1 1 
0012 
0013 
001 * 

0015 

0016 

0017 

0018 

0019 

0020 
□ 021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 
00 35 

0036 

0037 
00 3 8 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 
0046 
0049 


SUBROUTINE GCD < N * UR , VR, M,U S . VS , HI ,USS, VS SI 

C *****#*********+*******#**********#****•♦##*•****#****♦********** *********** 


c * * 
C ♦ GIVEN POLYNOMIALS P f X > ANO DPIX) WHERE REG. DPIXI IS LESS THAN OEG. * 
C * PIXl, SUBROUTINE GCD COMPUTES THE GREATEST COMMON DIVISOR OF PIXJ ANO * 
C * OPtXJ. * 

C * ♦ 


C ******************************* ****************** ************** ** ************ 

DOUBLE PRECISION USSSSS, VSSSSS 

DOUBLE PR EC I SION UR » VR , US > VS,US S , VSS , URR. VRR ,UD, VO, UT, VT, E PSLON , EP 
1S2.EPS3, B8B 

DIMENSION URI26) , VR I26> , US 1 26 > , VSI 26 ) ,USS< 26 1 , VSS I 26 > *URR< 26) ,VRRI 
126) , UT { 26 I , VT< 26) 

COMMON EPSLON,£PS2,EPS3* I02.MAX 
N1=N 
M 1 *M 
KKK-N * 1 
DO 20 1=1, KKK 
URR(I)=UK(II 
20 VRRII )=VRU > 

KKK = ?U1 
00 25 I = 1 , KKK 

ussm=usm 

25 VSSI ! )=VSU I 

30 BBB=US S I Ml *1 I*USS(M1 + 1H-VSSIMI+1)*VS$IM1*1I 

UO=IURR (N1M )*USSIHl*l )*VRR<Nl*l I «VSS I Ml U )>/ BBB 
VD=<USSIMUl»*VRRiNH-ll-URft<NH-n+VSS<MH-m/BB0 
KKK=N1 tl-Ml 
DO 40 I = KKK i Nt 

UU i )=URRI I >-(UD*U$S( l-Nl + Ml l-VD*VSSI f-Nl+Ml) > 

40 VTI I ) = VRR I I ) - I UD*VSS 1 I— N1 +M1 »*VD*l)SS I l-Nl*M 1 > I 
IFIM1.E0.N1) GO TO 70 
KKK=N1 -M 1 
DO 60 1=1, KKK 
UT(I)=URMI) 

60 VT ( I )= VRM f ) 

70 00 90 1=1 , N 1 

BB8 = 0SQRT(UTINUl-U*UHNl*l-l 1 1 VT I N U L- I) *VT I N1 *1- II) 

IF(BBB.GT.EPSLON) GO TO 100 
90 CONTINUE 

DO 95 1=1, Ml 

BRB*USSlHt + t l*USS(Ml + t )*VSSIM1M l*VSSIMi + LI 
USSSSS=IUSSI I ) *USSIM1*1 I ♦VSSI I IWSSCNl + ll I /BBB 
VSSSSS=IVSSI I>*USS<M1*1)-USSI I)*VSS!HU1)I/8B6 

ussi n=usssss 
95 vssm=vsssss 
USS(MU1)=1.0 
VSSI Ml *1 >=0. 0 
GO TO 200 
100 K =N 1 — I 

IF< K.EQ.O) GO TO. 170 
IFIK.LT. Ml) GO TO 140 
KKK=K+l 

DO 130 J- I »KKK 
URR IJ)=UT{ J) 

130 VRR{J*=VT(J) 

Nl = K 

GO TO 30 
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TABLE G.TII (Continued) 


0050 

140 

KKK=Ktl 

0051 


DO 150 J=1,KKK 

0052 


URR ( J ) - US5 ( J I 

0053 


VHP. < J»=VSS 1 J ) 

0054 


USSt J1=UTU» 

0055 

150 

VSS IJI-VT4J> 

0056 


KKK=IU2 

0057 


NNN=M1*1 

00 5 0 


00 160 J=KKK jNNN 

0059 


URR ( Jl =USS < J 1 

0060 

160 

VRP1 J>=VSS< J! 

0061 


Nl = Ml 

0062 


HI “K 

0063 


GO TO 30 

0064 

170 

ussm=t.o 

0065 


VSS(U=0.0 

0066 


M 1 = 0 

0067 

200 

RFTURN 

0060 


END 
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TABLE G. Ill ( C on t limed ) 


0001 


0002 

0003 
0009 

0005 

0006 

0007 

0008 

0009 

0010 
oon 
0012 
0013 
0019 
00 15 
0016 
0017 
00 IB 

0019 

0020 
0021 
0022 
0023 
0029 

0025 

0026 

0027 

0028 
0029 
00 30 

0031 

0032 

0033 


C 

c 

c 

c 

c 

c 

c 


SUBROUTINE NEWTON I UX, VX, N, UP , VP , UXO, VXO , CONV) 

********** ** = <■* *********** ***** «*«*** V************************************** 


* * 

* THIS SUBROUTINE CALCULATES A NEW APPROXIMATION FROM THE OLO APPROX- * 

* 1 MAT I ON BY USING THE ITERATION FORMULA * 

* X(N+l) = X(N)-P(X(N) I/PMXINl )• * 

* * 


**************** *#***************$*************************•****<.***** ****** 


DOUBLE PRECISION UX, VX,UP , VP ,UXO,VXO,ua , V8 ,UDPXO,VDPXO,UPXO, VPXO ,U 
1D1FF»V0|FF, EPSI . E PSL ON . E PS3 » AAA, RBB 
DOUBLE PRECISION ODD 
DOUBLE PRECISION ABPXO 
DIMENSION UP 12 61 , VP 1 26) , UBI26 ) , VBI26 ) 

COMMON EPS 1 , EP SLON , 6PS3 , 1 02, MAX 

LOGICAL CONV 

uxo*ux 

vxo=vx 

DO 10 1=1, MAX 

CALL HORNE RIUXO»VXO,N»UP, VP,UB» VB,UDPXO» VOPXO) 

UPXD=UB< 1) 

VPXQ=V B( L 1 

ODD = OSGRT(UOPXO*UOPXO«-VOPXO* VOPXO) 

IFinDD.NE.O.O) GO TO 5 
ABPX0=DSQRT1UPX0*UPX0*VPX0*VPX0) 

IFIABPXO.EO.O.O) CO TO 20 
GO TO 15 

5 BBB=UDPXO*UOPXO*VDPXO*VOPXO 

UDlfF=( UPXO*UDPXO+VPXO+VDPXQI /BBB 
VOI FF= (VPXO*UDPXO-UPXQ*VOPXO)/8BB 
UXO=UXO-UD IFF 
VXO= VXO-VOtFF 

AAA=OSORTIUOIFF*UDIFF+VDIFF*VDIFFI 

BRB=DSQRTIUXO*UXO*VXO*VXO) 

IF( hbb.eq.o.oi go to io 
IFIAAA/BB8.LT.EPSL0N) GO 10 20 
10 CONTINUE 
15 CONV=. FALSE. 

RETURN 

20 CONV= • TRUE. 

RETURN 
6 NO 
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TABLE G„ III (Continued) 


0001 SUBROUTINE Dt V l DE I N , UP, VP. H, UD, VD ,K ,UQ , VQI 

C **************************************************************+*♦****#***** 

c * 

C * GIVEN TWO POLYNOMIALS FIXI AND GIXI, SUBROUTINE OIVIOE COMPUTES THE 
C * QUOTIENT POLYNOMIAL H|X» = FIXI/GIX). 

C * 

C ************* ****************1************ ******************************** ** ; 


0002 


DOUBLE PRECISION UP, VP ,U0 ,VD , UQ , VQ, UTERH , VTE ftM, UOUMMY 

0003 


DIMENSION UP (2 61 ,VP 126 1 ,UD{26 1 , VD(26 > ,UQI 261 »VQ1 26 1 

0004 


K = N-M 

ooos 


UUUMMY=UD( R*1 ) *UD(M+1 ) *VOI M* 11 *V 01 M + 1 1 

0006 


UQtK*-l» = (UP<Ntl)+UDlHUI *-VP ( N+ l ) *V Ot M*1 1 1 /UOUMMY 

0007 


VQ I K*1 1=-IVPIN*1 1 *U0( M+M-UPI N*1 l*VO(M*ll 1 /UOUMMY 

0008 


IFIK.EQ.01 GO TQ 100 

0009 


J=-l 

0010 


DO 50 l-t.K 

oon 


J^JH 

0012 


UTE RM= UP ( N- J 1 

0013 


VT ERM= VP ( N- J 1 

0014 


KK=K+1 

0015 


NNN=M- J 

0016 


DO 40 M1=NNN,M 

0017 


IF( KK.GT .1 ) GO TO 10 

0018 


GO TO 45 

0019 

10 

IFIMl.GE.il GO TO 20 

0020 


GO TO 40 

0021 

20 

UTERM=UTERM- I UQ 1 KK 1 *UDI Ml l-VQI KK ) *VDI Ml l I 

0022 


VTERM=VTERM-IUQ(KK1*VDIHI 1«-VQ(KK1*U0(MU ) 

0023 

40 

KK^KK- 1 

0024 

45 

UOUMM Y = UD ( M+ 1 1 +UD ( M+l l*VD(M*l)*VDIM*l 1 

0025 


UQIK»l-n = lUTERM*UDIM*lUVTERH*VO(M + m /UOUMMY 

0026 

50 

VQIK+1-1 1 =M VTERM*UDI M*1 1-UT£RM*VDI M+l 1 1/ UOUMMY 

0027 

100 

RETURN 

0028 


END 
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TABLE G, III (Continued) 


0001 


ooo? 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 
00 14 

0015 

0016 

0017 

0018 

0019 

0020 


SUB ROUT I NE HORNE RT UX , VX , N , UP . VP . UB f V B ,UC »VC 1 
C ********************************************** ***************************** 

C * 1 

C * HORNER'S METHOD COMPUTES THE VALUE OF THE POLYNOMIAL P(X» AT A 

C * POINT D AND ITS DERIVATIVE AT D. SYNTHETIC DIVISION IS USEO TO 

C * DEFLATE THE POLYNOMIAL BY DIVIDING OUT THE FACTOR IX - 01. ' 

C * 

c ************************************* ************************** *+**#******<■: 

OOUBLE PRECISION UX,VX,UP, VP.UB, VB,UC»VC 
DOUBLE PRECISION UDUMMY, VDUMMY 
DIMENSION UPI26) , VP ( 26 ) , UBI 26 I * V8I 26 > 

UBINMJ =UP t N+l l 
VB{N*U = VP1N«-1I 

UBINI=IUX*UB(N*l »-VX*V8IN+l> I+UPINI 
VBIN)=IUX*VB(N*1 !♦ VX*UBI N*1 ) 1 ♦VP I N) 

UC=UB( N* 1 I 

vc=vbin+ii 

KKK=N-1 

00 10 1=1, KKK 

UB{ K.KKM- lie (UX*U9 CKK<»2“ I |-VX*VBIKKK*2-m*UPIKKK + l-I» 

VBIKKK*l-l 1 = IUX*VBIKKK*2-I I* VX*UBI KKK* 2- 111 *VP IKKK*1- 1 1 
UDUMMY =UX*UC-VX* VC 
VDUMMY =UX* VC +VX*UC 
UC=UQUMMY*UBIKKK+2- H 
10 VC=V0UMMY ♦VBIKKK«-2-Il 
RETURN 
ENO 
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TABLE G.III (Continued) 


OOOl 


0002 

0003 

0004 

0005 

0006 

0007 

0008 
0000 
0010 
oon 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 
00 24 

0025 

0026 

0027 

0028 
0029 
00 30 

0031 

0032 


SUBROUTINE QUAD (N.UA.VA, J, UROOT , VROOT I 

C ***** *** ****************************** **************** ********************** 

C * * 

C * SUBROUTINE QUAD SOLVES 01RECTLV FOR THE ZEROS ANO THEIR MULTIPLICITIES * 

C * Of EITHER A QUADRATIC POLYNOMIAL DR A LINEAR FACTOR. SOLUTION OF THE * 

C * QUAORATIC IS OONE USING THE QUADRATIC FORMULA. * 

C * * 

C ***************** *************************** «*«<*** **************** *^ «*«**»* * 

0GU8LE PRECISION E PS 1 , EPS2 , E PSL ON, UROOT, VRQOT ,UA, VA ,U0! SC t VOI SC , UO 
l , VO ,000, UTEMP, VTEMP, BBB 
DIMENSION UROOT { 25 ) , VROQT <25 1 , UA! 26 I , VA( 26 ) 

COMMON EPSl ,EPS2,EPSL0N, I02.MAX 
IFIN.GT.l) GO TO 10 
J = J*1 

BBD=UAt2)*UA<2 I *VA 12 >*VA(2 » 

UROOT ( J ) =- ( UA! t ) *UA( 2 I +VA! M*VAI2I 1/BflB 
VROOTI JI=-IVA« l l*UA(2)-UA( U*VA<2) I /BBS 
GO TO 100 

10 UD l SC= (UAC 2 ) *U A ( 2 I-VAI 2 )*VAI 2 l> - 1 4.0* IUA< 3 1 • UAU J -VA I 3 I *VA HI ) > 

VOI SC-!2,0*UAI 2 1 *VA ! 2 I I-(4.0*IUA(3I*VAI 1 I*VAI 3) *UA ( 1)11 
U0=2.0*UA! 3) 

VD=2.0*VAI 31 

000=0 S OR I ( UUI SC*UOl 5C*VDISC + V0ISCI 

IF(OOD.LT.EPSLON) GO TO 20 

CALL COMSQT I UD 1 S C , VO I SC ,UT EMP, VTEMP) 

BSB = UD *U0 ‘-VO* VD 

UROOT I J +- L J — ( (-UA! 2 ) *UT EMP I *UD* I - VA ( 2 ) ♦VTEMP) *VD> / BBB 
VROOTI J*1 1= II-VAI2 >*VTEMP)*UD-I — UA { 2 1 *UT EMP 1 *V0 I f BOB 
UROOT! J+2>=< ( -UA { 2 J -UTEMP 1 *U0* ( - VA [ 2 1- VTEMP) * VDl / BBB 
V ROOT ( J ♦ 2 > = ( I-VAI2 I- VTEMP J *UO-{-UA< 2 1-UTE HP 1* VO I/BOB 
J = J* 2 
GO TO 100 
20 J=J*1 

BBB=UD*UD*VO*VD 

UROOT! J» = 1-UA( 21 *UD-VAI 21PV0J /BBS 
VROOT ! JI=|-VA(2)*U0*UA!2)*VD)/Baa 
WRITE! 102,10001 UROOTIJJ .VROOTI JI 

1000 FORMAT ! /// LX , l IHQUAO FOUND ,023.16,3H * ,023.16,2H l,22H TO BE A M 
1ULTIPLE ROUT//! 

100 RETURN 
END 
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TABLE G.III (Continued) 


0001 


0002 
000 3 

0004 

0005 

0006 
0007 
000 8 

0009 

0010 
0011 


SUBROUTINE DER IVI N, UP , VP , M , UA, VA 1 

C * ** ** ** * * * ***** ** ** ** * * ** * * **** * ******* ************************** ****** **** 

C * 

C * GIVEN A POLYNOMIAL P I X 1 » SUBROUTINE OERIV COMPUTES THE COEFFICIENTS OF 
C * ITS DERIVATIVE P « ( XI . 

C * 

C ********************** ************************************* ************** A * 1 

DOUBLE PRECISION UP , VP »U A , VA , AA A 
DIMENSION UPI26) ,VP( 26) »UA(26> »VA(26) 

KKK=N+ 1 
00 10 1 = 2, KKK 
A AA= I- 1 

UA I l-l >=AAA*UP( I ) 

10 VA ( I-1)=AAA*VP{ I ) 

M=N-l 

RETURN 

ENO 


OOOt 


SUBROUTINE COMSQT (UX , VX , UY , V Y I 

C ***** ****************************************************** ****••*•*****•*•• 

c * * 

C * THIS SUBROUTINE COMPUTES THE SQUARE ROOT OF A COMPLEX NUMBER, * 

C * * 

c **************************************************************************** 


0002 


DOUBLE PRECISION UX, VX , UY , VY , DUMMY , R , AAA , 880 

0003 


R=D5QRT( UX*UX*VX*VX) 

0004 


AAA=DSQRT (DABS { (R+UX 1/2.01 > 

0005 


Bfc)B=DSQRT (DADS! (fl~UX)/2.0) t 

0006 


IF(VX) 10,20,30 

000 7 

10 

UY= AAA 

0008 


VY=-l.O*BBB 

0009 


GO TO 100 

0010 

20 

IF(UX) 40,50,60 

0011 

30 

UY=A AA 

0012 


VY = £ BB 

0013 


GO TO 100 

00 14 

40 

DUMMY=DABS( UX) 

0015 


U Y = CJ .0 

0016 


VY=DSQRT ( DUMMY) 

0017 


GO TO 100 

0016 

50 

UY=0»0 

0019 


VY=0. 0 

0020 


GO TO 100 

00 21 

60 

0UHMY=DAQS(UX) 

002 2 


UY = D SORT 1 DUMMY ) 

0023 


V Y = 0 .0 

0024 

100 

RETURN 

0025 


ENO 



APPENDIX H 


REPEATED G.C.D. - MULLER'S METHOD 
1. Use of the Program 

A double precision FORTRAN IV program using the repeated G.C.D. 
method with Muller's method as a supporting method is presented here. 
Flow charts for this program are given in Figure H.l while Table H. Ill 
gives a FORTRAN IV listing of this program. 

This program is designed to solve polynomials having degree less 
than or equal to 25. In order to solve polynomials of degree N where 
N > 25 , the data statement and array dimensions given in Table H.l 
must be changed. 

In this program both the leading coefficient and the constant 
coefficient are assumed to be non-zero. 
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TABLE H.I 

PROGRAM CHANGES NECESSARY TO SOLVE POLYNOMIALS OF DEGREE 
GREATER THAN 25 BY THE REPEATED G.C.D. - MULLER’S METHOD 


Main Program 

Data Entry/lHl,lH2,...,lH9,2Hl i Q,2Hll,...,2HXX/where XX = N+l 

UAPP (N,3) , VAPP (N,3) 
urapp(n,3), URAPP (N , 3 ) 

UP (N+l) , VP (N+l) 

MULT (N) 

UDD0(N+1), VDDO(N+l) 

UD1 (N+l) , VD1 (N+l) 

UDDl (N+l) , VDDl(N+l) 

UD2 (N+l) , VD2 (N+l) 

UG(N+1) , VG (N+l) 

UD3C2N+1), VD3(2N+1) 

UD4(2N+1), VD4 (2N+1) 

UAP (N+l) , VAP (N+l) 

UZROS (N) , VZROS (N) 

UROOT(N), VROOT(N) 

UDO (N+l ) , VD0(N+1) 

ENTRY (N+l) 


Subroutines PROD, QUAD 
See corresponding subroutine in Table G.I. 
Subroutines DERIV, GCD, and DIVIDE 


See corresponding subroutine in Table E. I. 
Subroutines MULLER, GENAPP , BETTER and HORNER 
See corresponding subroutine in Table F.I. 


2. Input Data for Repeated G.C.D. - Muller's Method 

The input data to the repeated G.C.D. - Muller’s method is the 
same as for the repeated G.C.D. - Newton’s method as described in 


Appendix G, § 2. 
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3. Variables Used in Repeated G.C.D. - Muller’s Method 

The variables used in this, program are referenced. in Table H.II. 
The notation and symbols used in the referenced tables are described 
in Appendix E, § 3. 


TABLE H.II 

VARIABLES USED IN REPEATED G.C.D. - MULLER'S METHOD 

Main Program and Subroutine PROD 
See Table G.II. 

Subroutines QUAD, DERIV , GCD, DIVIDE, and COMSQT 

See corresponding subroutine in Table E.VI. 

Subroutines CALC, MULLER, GENAPP , ALTER, BETTER, 
TEST, and HORNER. 

See corresponding subroutine in Table F.II. 


4. Description of Program Output 

The output for this program is the same as that for repeated 
G.C.D. - Newton’s method as described in Appendix G, § 4. Only one 
initial approximation, , (not three) is printed. The other two 
required by Muller’s method are . 9X Q . and 1.1X Q . The message "SOLVED 
BY DIRECT METHOD" means that the corresponding root was obtained by 
Subroutine QUAD. 
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5. Informative Messages and Error Messages 

Descriptions of the informative messages and error messages printed 
by this program can be found either in Appendix E, § 5, Appendix F, § 5, 
or Appendix G, § 5. 
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Figure H.l. (Continued) 
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-CALC TEST 
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Figure H.l, (Continued) 
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Figure H.l, (Continued) 
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Figure H.l, (Continued) 
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0001 


0002 

0003 

0004 

0005 

0006 
0007 


0008 

0009 

0010 
0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
00 21 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 


TABLE H. Ill 


PROGRAM FOR REPEATED G.C.D, -MULLER'S METHOD 


* DOUBLE PRECISION PROGRAM FOR THE REPEATED G.C.O. - MULLER'S METHOD 


THIS METHOD REPEATEDLY FINDS THE GREATEST COMMON DIVISOR OF TWO 
POLYNOMIALS IN ORDER TO EXTRACT THE 2ER0S IN GROUPS ACCORDING TO 
MULTIPLICITY USING NEWTON'S METHOD. ALL ZEROS OF MULTIPLICITY 1 
ARE EXTRACTED FOLLOWED BY THOSE OF MULTIPLICITY 2, ETC. 


***** ***** ******** ***** **** ****** *« ******* ****** *********** ******* ******* *** 

DOUBLE PRECISION EPS l ,EPS2»£PS3 « UP , VP ,UAPP,V APP ,UDO « VOO «UDDO, VDOO , 

1U01 , VD1 f U02 , VD2 ► U0D1 , VQ01 ,UG, VG , UD3 » V03 ,UD4, VD4,UIRUS, V2R0S » UAP . VA 
2P • UROOT , VROOT , DENOM 
DOUBLE PRECISION XST ART 
DOUBLE PRECISION XEND 
DOUBLE PRECISION URAPP.VRAPP 
DOUBLE PRECISION EPS4 

DIMENSION UAPPI25.3) » VAPPI 25 , 3 I .URAPPt 25 , 3 1 , VRAPPI 25, 3 1 
DIMENSION UP 1 26) , VP I 26) .MULTI 251 .UDD0I26) , VOOOI 26 ) ,UOl ( 26 I » V01 ( 26 ) 

1 .0001 ( 26 ) .V001I26) (UD2I26I.V02I26I (UGI26) ,VG< 26I.UD3I51 1.VD3I51) .U 
2041 51),VD4(51) ,UAP| 26) ,V API 261 ,U 7R0SI 2 5 1 . V2ROSI25 ) .UROOT 1 25 > , VROOT 
31251 ,ANAMEI2I.UOOI26),VOOI26) .ENTRY! 26 I 
COMMON EPS1 »EP$2 .EPS3.EPS4, 102, MAX 
OATA PNAME.GNAME/2HPI ,2HGI/, 61NAME/3HDI (/ 

DATA AST ER/4H*** V 

OATA ENTRY/ IH1 » 1 H2 , 1H3.1H4.1H5, IH6 , 1H7, 1H8 , l H9, 2M10 , 2Hll.2H12.2H13 
1, 2H14, 2H I5.2H1&. 2H1 7.2HI8.2H19, 2H20, 2H2 l ,2H22« 2H23, 2H24.2H25.2H26/ 

ULL.4HERS / 


NO POLY ,NP ,NAPP .MAX, £PS1 »EPS2» EPS3, XSTART, XENO.KCHEC 


DATA ANAMEI1 ), 

ANAMEI2) 

101=5 


1 02= & 


1 READ! 101, 10001 

NOPOLY ,1 

IK 


1 F 1 KCHECK .EQ.l 

) STOP 

WRITE! 102,1020 

1 ANAME ( 

WRITE! 102,2000 

t NAPP 

WRITE! 102,2010 

) MAX 

WRITEI 102,2070 

I EPS1 

WRITEI 102,2020 

) EPS2 

WRITEI 102,2080 

) EPS3 

WRITEI 102,2040 

I XSTART 

WRITEI 102,2050 

I XENO 

WRITEI 102,2060 

1 


kkk=np«-i 

NNN*KKK* l 
DO 5 1=1, KKK. 

JJJ=NNN-| 

5 REAOI 101,1010) UP! JJ J ) , VP( JJ Jl 
1FINAPP.NE.0 ) GO TO 22 
NAPP=NP 

call GENAPPIUAPP.VAPP.NAPP.XSTARTI 
GO TO 23 

22 REAOI I 01 . 101 5) I UAPPII , 21 .VAPPI I ,2) , 1 = 1 ,NAPP> 

23 WRITEI 102,1030) NP 
KKK=NP+l 
NNN=KKK> 1 

DO 8 1=1, KKK 
JJJ=NNN-I 



0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 
00 52 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 
0070 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 
0087 

0083 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 


TABLE H. XII (Continued) 


8 WRITE! 102»1040 I PNAME , ENTRY ( JJ J J , UP! JJ J ) , VPUJJ I 
K = 0 
KO=Q 
JIM 

KKK=NP* 1 
DO 10 l*l«KKK 

uoom=upm 
10 vooi ii=vp< i i 

ND0=NP 

CALL DERI V! NDO,UOO, VDO , NOOO* UDOO . VODO 1 
CALL GCDINOO*UQO • VDO ,NDDO, 0000, VDQQ ,NOl»UDl , VDl I 
20 WRITE! 102,30001 I AST ER, 1 * 1 , 33 1 
lFIH01.LE.il GO TO 30 
GO TO 40 
30 UD2 < 11=1.0 
VD2! 11=0.0 
N02*0 
GO TO 50 

40 CALL DER1VIND1»UD1 ,VD1 ,NDD1,UDD1 ,VDD1 1 

CALL GCD( U01 1 JD1 » VDl , NODI , UODl , VDO l ,ND2 »UD2« V02i 
50 I F I ND0«-ND2. LE . 2*N01 1 GO TO 60 
GO TO 70 

60 WRITE! 102,10251 J1 
GO TO 170 

70 IFINOl.EO.OI GO TO 80 
GO TO 90 
80 KKK=NDOM 

DO 85 l* l, KKK 
UG I 1 1 =UDO ( I > 

85 VGin = VOO(I) 

NG=N00 
GO TO 110 

90 IF! ND2 . E Q . 0 > GO TO 115 

CALL PROO!NOO,UOO,VDO,N02,UD2,VD2,HD3,UD3,VD3I 
100 CALL PROD < N01 , UD1 , VO 1 , NO 1 ,U01 , VDl » ND4 ,UD4 , VD4 1 
CALL DIV I0E(HD3,UQ3,VD3«H04,UD4,VQ4,HG,0G,VGI 
110 WRITE(I02, 10351 J1 
KKK=NG+l 
NNN=KKK* 1 
DO 112 1*1, KKK 
J JJ=NNN- I 

112 WRITE! 102,1040) GNAME, ENTRY! JJJ1 ,UG1 JJJ) ,VG!JJJ> 

KKK = NGM 

DO 113 1*1, KKK 
UAP! n=UG(KKK*l-I J 

113 VAP( I>*VGtKKK*l-I 1 

CALL HULLER(NG.UAP,VAP t NAPP,UAPP,VAPP, J.U7ROS.V2ROS, JAP, X START, XEN 
l 0, NOPOL Y , URAPP»VRAPPl 
I F ( J . EQ. 0 ! GO TO 150 
WRITE! 102,1180) 

If(jAP.EQ.O) GO TO 120 
GO TO 130 

115 KKK*N00H 

00 116 1=1, KKK 
UD31 I 1*000! I ) 

116 VD3I r 1 * VDO C I 1 
NO 3= NO 0 

GO TO 100 
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TABLE H. Ill (Continued) 


009 9 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 
0107 

oioe 

0109 

01 10 
out 
0112 

0113 

0114 

0115 

0116 

0117 

0118 
01 19 
0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 
0133 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 


0148 

0149 

0150 


120 KKK= JAPM 

WRITS! 102,1085) ! I .UZRQSI 11, VZROSI I I , J 1 , 1=KKK, J 1 
GQ TO 140 
130 00 135 1=1 , JAP 

135 WRITE! 102,11901 I.UZROSI 1 1 , VZROS 1 1 1 , Jl ,URAPP J 1 , 2 ) , VRAPPI I , 2 I 
IF! JAP. LT. 41 GO TQ 120 
140 IF! J.EQ.NG) GO TO 155 
150 WRITE! 102,10951 

IFtJ.EQ.OI GO TO 170 
155 00 160 1=1, J 

UROOT < K0* I I =UZ R0$! 1 1 
VRDDT I KQ*1 )=VZRQSt I) 

160 MULTIKOM )=J1 

k={ j*jii*k 

KD=KD* J 

IFfK.GE.NP) GO TO l 
170 Jl=Jl*l 

IFIN01.LE.L1 GO TO 200 
00 180 1=1, ND1 
UDOt 1 l=UOl! 1 1 
VOO! 1 >=VOl! 1 1 
UOOO! I ) =UOD 1 (11 
180 VODO! I 1=VDD1 ( 1 1 

UOOINDUll^UOUNOln 1 
VOOINOl+l )=VD1IND1+1> 

NDQ=N01 
NODO =ND01 
KKK=NDZ*1 
00 190 1=1, KKK 
UD1II )*U02< I I 
190 VOKI )=VD2I I 1 
N01=-ND2 
GO TO 20 

200 IFINDI.FO.OI GQ TO l 
KD=KD+1 

DENOM=UO 1(2) *U 01(21+ VO II 21 *VOL ( 2 1 

UROOT IKOI= {-UOK 1 )*l)OI (2)-V01(l)*WDl(2ll /OENOM 

VROOT ( KOI = (— V01 ! 1I+U0U2 l+UOl I t )+V01 12) l/OENOM 

MULT!K.D)=J1 

WRITE! 102,30001 ( AST ER, I = 1 , 33 1 

WRITE! 102,10351 J1 

KKK=NDU1 - 

NNN=KKK+l 

00 210 I = 1 ,KKK 

JJJ=NNN-I 

210 WRITE! 102, 1100 » OINAME, ENT RY (J J J » ,UDl( J JJ I ,V0 1 I J4 J 1 
WRITE! 102.11801 

WRITE! 102, 1085) KD , UROOT ( KOI , VROOT I <01 ,J 1 . 

GO TO l 

1020 FORMAT ! 1HI , l OX .48HREPEAT6D USE OF THE GREATEST COMMON DIVISOR AND 
l,A4,A4,58H METHDQ TO EXTRACT ROOTS AND MULTIPLICITIES OF PQLYNQM I A 
2LS/11X.1 8HP0LY UOM| AL NUMBER .12///) 

1025 FORMAT i ///1X.25HN0 ROOTS OF MULTIPLICITY ,I2//I 

1035 FORMAT !///IX ,a7HTME FOLLOWING POLYNOMIAL, GU>» CONTAINS ALL THE R 
100TS OF PIX) WHICH HAVE MULTIPLICITY ,12//) 

1085 FORMAT (2X.5HR00T I, 12, 4H) = ,D23.16,3H * ,P23.16,2H I , 8X, I 2, 9X , 25HM 
IQ INITIAL APPROXIMATIONS) 

1095 FORMAT I///1X.5I HNOT ALL ROOTS OF THE ABOVE POLYNOH I AL, G, WERE FOUN 


0151 
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TABLE H.IXI (Continued) 


10//I 

0152 1000 F0RMAT(3(I2,1X).9X.I3.1X,3|D6.0,1X1 ,20X ,2107.0 , IX ) , I 1 I 

0153 1010 FORMAT i 2030.01 

01 5 A 1015 FORMAT 12030*0 1 

0155 1030 FORMAT (IX.22HTHE DEGREE OF PUI 1$ ,12,22H THE COEFFICIENTS ARE// 

1 I 

0156 1040 FORMAT (2X.A2.A2.4H) = ,023.16,3H * .023.16.2H 1) 

0157 1100 FORMAT (2X,A3,A2, 4H) = ,D23.16,3H * ,023.16,2H II 

0156 1180 FORMAT (///IX. 13HR0QTS OF P ( X! , 52X , 14HNUIT1 PLIC 1 TI ES • 1 7X ,2 1HINI TI At 

l APPROXIMATION//! 

0159 1190 FORMAT ( 2X .5HROOT 1,1 2 ?4HI = .D23.16.3H * .023.16.2H I ,BX , |2, 8X.023. 

116, 3H «• ,023.16, 2H 1 ) 

0160 2000 FORMAT ( 1 X , 4 IHNUMflER OF INITIAL APPROXIMATIONS GIVEN. ,I2» 

0161 2010 FORMAT! IX, 29HMAX1 MUM NUMBER OF ! TERAT10NS . , 1 IX * 13 > 

0162 2020 FORMAT (1X.21HTEST FOR CONVERGENCE .. 13X , 09, 21 

0163 2040 FORMAT! IX. 23HRAOIUS TO START SEARCH. .11X, 09. 21 

0164 2050 FORMAT !IX,21HRA0IUS TO ENO SEARCH. , l 3X ,09 . 2) 

0165 2060 FORMAT (//IX) 

0166 2070 FORMAT! IX, 34HTEST FOR 2ERO IN SUBROUTINE GCD. ,09.2) 

0167 2080 FORMAT (IX .34HT6ST FOR ZERO IN SUBROUTINE QUAO. .09.2) 

0168 3000 FORMAT (/////1X,A3,32A4) 

0169 ENO 
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TABLE H.III (Continued) 


0001 SUBROUTINE PROD! M ,UF , VF, N,UG. VG, MN, UH, VH I 

C ***** *********************** ************************************* ***** ****** 


c * * 

C * GIVEN POLYNOMIALS R € K I AND SIX), THIS SUBROUTINE COMPUTES THE * 
C * COEFFICIENTS OF THE PRODUCT POLYNOMIAL TIX) = R(X).SIX). * 
C * * 


C **************************************************************************** 


0002 


DOUBLE PRECISION UH, VH,UF, VF, UG, VG 

0003 


DIMENSION UH 151) , VH1 5 l ) , UF ( 26 ) , VF < 26 1 ,UG1 26 1 , VG( 26 ) 

0004 


MN=M*N 

0005 


KKK=HN*1 

0006 


DO 100 1=1, KKK 

000 7 


K= I 

0008 


UH( 1 1=0.0 

0009 


VHI I 1=0. 0 

0010 


1 F ( I.LE.M+l) GO TO 10 

oo u 


L I Ml T = M* 1 

0012 


GO TO 20 

0013 

10 

LIMIT* I 

0014 

20 

DO 50 J=l .LIMIT 

001 5 


IFtX.GT.N*!) GO TO 50 

0016 


1 F | J+K.EQ.l+l 1 GO TO 40 

0017 


GO TO 50 

0018 

40 

UHI I 1 “UH 1 l 1*<UF< J)*UG(K)-VF( Jl*VGlKl 1 

0019 


VH( I 1 =VH( 1 )*IVFI J)*UGIKI+UFI J1+VGIK1 1 

0020 

50 

K=K- 1 

0021 

100 

CONTINUE 

0022 


RETURN 

0023 


END 
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TABLE. H. III,. . (Continued) . 


0001 


0002 

0003 

0004 

0005 

0006 
0007 

oooa 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
00 IB 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 
00 31 

0032 

0033 


SUBROUTINE QUAOC N , UA , VA , J , UROOT, VROOT) 

C *** ****** « *********** ************* ********* ******************** ******* ****** 


C * 4 
C * SUBROUTINE QUAD SOLVES DIRECTLY FOR THE ZEROS AND THEIR MULTIPLICITIES * 
C * OF EITHER A QUADRATIC POLYNOMIAL OR A LINEAR FACTOR. SOLUTION OF THE * 
C ♦ QUADRATIC IS DONE USING THE OUADRATIC FORMULA. * 
C * * 


C ***** ************ 4**44******+************+ ********************* ******* ****** 

DOUBLE PRECISION EPS 1 »EPS2 , E PSLON.UROOT, VROOT .UA» VA, UQI SC , VDl SC . UO 
1 ♦VD,OOD,UTEMP,VTEMP, BBB 
DOUBLE PRECISION EPS4 

DIMENSION UROQTI251 t VROOT{25)>UA (26) .VA{ 26 I 
COMMON EPSl.EPS2,EPSL0N,EPS4,I02,MAX 
IFCN.GT.il GO TO 10 
J“J*l 

BB8=UA( 2 1 *UA (2>*VA(2I*VA(2) 

URQOT C J) “-CUAC U*UA(2V*VAUl*VA(2n/flBB 
VROOT CJ)=-(VAC 1 >*UA(2I-UA( l)*VAC2)l/8BB 
GO TO 100 

10 U0ISC = (UAI2) *UA< 2)-VAC2)*VAC2n-I4.0*IUAC3) *UA( l)-VA(3l*VA{ l) ) I 
V0iSCM2.0*UA(2)*VA(2 >>~|4.0*<UA(3)*VAC l >*VA(3>*UA< 1))) 

UQ=2.0*UA<3) 

VCM2.0*VA( 3) 

DOO=OSQRTCUOISC*UDISC*VDI SC* VDI SC 1 
IFtDOD.LT. EPSLON I GO TO 20 
CALL COMSQT (ODISC.VOlSCiUT EMP » VTEMP I 
BBB=UO* DO+VD*VD 

UROOH J* 1) = < (-UA(2)*UT£HP) *U0 + ( - VAl 2>*VTEMP)*V01/BBB 
VROOT CJ+1 IM I-VAC2 l+VTEMP) *U0-| -U AC 2 )*UTEHP)*VO)/BBB 
UROOTC J* 2 1 = ( l-UAC 2 1 -UTEMP I *UD* (— VAC 2 I -VTEMP|*VOI / BRB 
VROOT < J*2) = C C-VAC 2)-VTEMPl*U0-l-UAC 2 l-UTEMP)*VD»/BBB 
J = J*2 
GO TO 100 
20 J=J*l 

BB8=UD*UD+VD*V0 

UROOT I J)=C-UA( 21 *UD-VA( 2M-VDI/BBB 
VROOT CJ)=(-VAC 2>*UD*UAI2 >*VU>/BBB 
WRIT EC 102 » 1000) UROOTC J) » VROOT ( J) 

1000 FORMAT < If / IX » l 1HQUAD FOUND ,D23.16,3H + , 023.16, 2H I.22H TO BE A M 
1ULTIPLE ROOT//) 

100 RETURN 
END 
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TABLE H 0 III (Continued) 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 


SUBROUTINE DER IV I N, UP , VP , N, UA, VA > 

q ********* ******** ^t*******m*v* ******************************* ****** ********* 

C * * 

C * GIVEN A POLYNOMIAL P4 XI • SUBROUTINE OERIV COMPUTES THE COEFFICIENTS OF * 

C * ITS DERIVATIVE PMX1, * 

C * * 

C ** *************** *********************************************************** 

DOUBLE PRECISION UP , VP ,UA , VA, AAA 
0 IMENS ION UPIZ6»,VP(26l,UAI26),VA(26) 

KKK = NM 
00 10 1=2, KKK 
AAA= 1-1 

UA( 1-1 1 1 AAA* UP I I I 
10 VA1 I-1I=AAA*VPIIJ 
M=N— 1 
RETURN 
END 
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TABLE H. Ill (Continued) 


0001 


SUBROUTINE GCDIN.UR, VR.M»US, VS. HI .USStVSSI 
C ****** ************ ************** ********************** ******* «***# ********** 

C * * 

C * GIVEN POLYNOMIALS PI XI AND DPIX) WHERE DEG. DPIX) IS LESS THAN DEG. * 

C * PIX), SUBROUTINE GCD COMPUTES THE GREATEST COMMON DIVISOR OF PIX) AND * 

C * OPtXI. * 

C + * 

c ******************************************************* ******* **** ********** 


oooz 


DOUBLE PRECISION USSSSS. V SSSSS 

0003 


DOUBLE PRECISION UR , VR »US , VS, USS , VSS t URR , VRR ,U0, VD.UT, VT » EPSLON, EP 



1S2,EPS3,EPS4,BBB 

0004 


DI ME NS I ON UR 1261 , VR 1 26.) , US <26 1 , VS 1 26 1 ,USS I 26 > , VSS 1 26 ) , URR I 261 » VRR 1 



1261 , UT 1 261 , VT< 26 1 

0005 


COMMON EPSLON, EPS 2 , EPS3 , EPS4, 102, MAX 

0006 


N1 = N 

0007 


M1=M 

0008 


KKK=N+ 1 

0009 


DO 20 1 = 1 , KKK 

0010 


URR < I 1 = UR 1 1 1 

oon 

20 

VRR (II »VR( I 1 

0012 


KKK=M* 1 

0013 


DO 25 1=1, KKK 

oou 


ussm=usm 

0015 

25 

vssm=vsi i ) 

0016 

30 

BB6=USS(Ml + n*USSIMl*U*VS$IHl+l)*VSS<Hl*ll 

0017 


UD=(URR( Nl + 1 )*USS<Ml+l)*VRR<NIM l*VSSIMi*ll)/BB& 

0018 


VD = ( US SI Ml*l )*VRR<Nl*ll-URR<Nl+l>*VS$IMl+l 1 1/660 

0019 


KKK=N1*1—M1 

0020 


DO 40 1 = KKK i Nl 

0021 


UT 1 I ) = URRU)-IUD*USStl-Nl*Mn-VD*VSSl l-Nl*Hl) 1 

0022 

40 

VT1 1 ) = VRR { 1 1~|UD*V5S( 1-N1*MU+VD*USS1 I-NUM1H 

0023 


If IM1 .EQ.NU GO TO 70 

0024 


KKK=NI-M1 

0025 


DO 60 1=1, KKK 

0026 


UT ( I 1 = URR 1 l 1 

0027 

60 

VTm=VR«UI 

0028 

70 

DO 90 l=l,Nl 

0029 


BBB=OSQRT(UT(Nl* 1-1 )*UTINL*1-I )+VTINl*l-l >*VTINl* I- 1 1 1 

0030 


IFIBBB.GT. EPSLON) GO TO 100 

0031 

90 

CONTINUE 

0032 


DO 95 1=1, Ml 

0033 


6BB=USS< Ml *1 )*USSIMl*l )*VSS(Ml*l )*VSS(Ml*l 1 

0034 


USSSSS=IUSSm*USSIMl*l) *955(1 )*VS$IM1*1> 1/B8B 

0035 


VSSSSS=1VSS1 1 1 *USS 1 M 1* 1 >— USS t 1 )*VSSlHUn)/BSB 

0036 


USS(U=USSSSS 

QO 3 7 

95 

VSSI I ) =vsssss 

0036 


USS( Ml+1 ) = 1 .0 

0039 


VSS 1 Ml* 1 I =0. 0 

0040 


GO TO 200 

0041 

100 

K = N1— I 

0042 


IEIK.EQ.O) GO TO 170 

0043 


IFIK.LT.MU GO TO 140 

0044 


KKK=K+ 1 

0045 


DO 130 J=1,KKK 

0046 


URRI J)=UT( J) 

0047 

130 

VRR I J)=VT{ J ) 

0048 


N1=K 

0049 


GO TO 30 



TABLE H. Ill (Continued) 


0050 

140 

KKK = K * l 

0051 


00 150 J=l»KKK 

0052 


URftl JMUSSI Jl 

0053 


VRR ( J} = VSS ( J 1 

0054 


USS1 JT=UTt J1 

0055 

150 

vssi j>»vr < ji 

0056 


KKK=K+2 

0057 


NNN=Ml ♦! 

0058 


00 160 J=KKK,NNN 

0059 


URR( J1=USS(J 1 

0060 

160 

VftiM J 1 « VSS ( J l 

0061 


Nl = Ml 

0062 


HI 53 K 

0063 


GO TO 30 

0064 

170 

ussm = i.o 

0065 


VSSI 11-0.0 

0066 


Ml=0 

0067 

200 

RETURN 

0066 


END 
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0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
001 1 
0012 

0013 

0014 
00 L5 
0016 
0017 
0016 

0019 

0020 
0021 
0022 

0023 

0024 
002 5 
0026 
002 7 
0028 


TABLE H.11X (Continued) 


SUBROUTINE DIVIOEIN,UP,VP,M,UD,VD,K f UQ,VQl 

c *#**+**•**+♦*********•*********#*****************#*********+*****•****♦•*■*** 


c * . . * 

C * GIVEN TWO POLYNOMIALS F<X> ANO G1XI, SUBROUTINE DIVIDE COMPUTES THE * 
C * QUOTIENT POLYNOMIAL HIX) « F(X»/G<XJ. * 
C ♦ * 


c *************************************************** *#***•#•♦****** ********** 

DOUBLE PRECISION UP, VP, UO, VO. UQ.VQ.UTERM .VTERM, UOUMMY 
DIMENSION UP <261 * VP ( 26) , U0( 26 } , VD( 261 , UQ ( 261 ,VQ(26) 

K = N-M 

UDUMHY = UDIM«-H*UO{MU1*VOIM*U*VD<M*1) 

UQIK*l)=(UP(N*ll *U0 IM*il*VP(N*l)*VO(M*ll > /UOUMMY 
VQIK*l)=IVPIN*-l I *U0IH*1 1-UPINU1 *VD( H*l I ) /UOUMMY 
IFIK.EQ.01 GO TO 100 
J=-l 

DO 50 1 = 1, K 
J = J*1 

UTERM=UP(N-J> 

VTERM=VP(N-J1 

KK=K*1 

NNN*M-J 

DO 40 Ml=NNN,K 


IFIKK.GT.I 1 

GO 

TO 

10 

GO TO 45 




10 lFIMl.GE.lt 

GO 

TO 

20 


GO TO 40 

2 0 UT€RM=>UTERM-IUQ(KK)*UOIMl 1-VQ IKK 1 *V0 l MU I 
V TER M= VTERM- (UQ IKK1*V0(H1 1 +VQIKKI*U01MU | 

40 KK=KK-1 

45 UDUMMY=UD( M*- 1 } *U DIM+l l*VD(H*-l )*VDIM*ll 

UQ( K*l — I 1 = IUTERH*UO( M*l 1 +VTERM*VQ< M*1 I I /UOUMMY 
50 VQU + l-l 1=<VTEHH*UD(H*I}-UTERM*VDIM*1JJ / UOUMMY 
100 RETURN 
END 
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TABLE tt.III (Continued) 


OOOl 


SUBROUTINE COMSQT »UX f VX,UY,VY> 

C **************************************************************************** 

c * . * 

C * THIS SUBROUTINE COMPUTES THE SQUARE ROOT OF A COMPLEX NUMBER. * 

C * * 

c **********+******»******#*♦**********#*************? ************************ 


0002 


DOUBLE PRECISION UX , VX ,UY ,VV , DUMMY* R* AAA, BBB 

0003 


R = DSQRT IUXMJX«-VX*VXI 

0004 


AAA=DSQRTIDABS< C R*UX 1/2.0 » 1 

0005 


8BB~DSQAT(0A8S ((R-UX 1/2.0)) 

0006 


IFIVXl 10,20,30 

0007 

10 

UY=AAA 

0008 


VY=- l.O*0BB 

0000 


GO TO 100 

0010 

20 

IFIUX) 40,50,60 

oon 

30 

UYMAA 

0012 


VY= BBB 

00 13 


GD TO 100 

0014 

40 

DUMMY=OABS(UXI 

0015 


UY=0.0 

0016 


VY=DSORT I DUMMY ) 

001 7 


GO TQ 100 

0018 

50 

UY=0.0 

00 19 


VY=0.0 

0020 


GO TO 100 

0021 

60 

OUMMY=OABSIUXI 

0022 


UY=DSQRTI OUMMY 1 

0023 


VY=0.0 

0024 

100 

RETURN 

0025 


END 
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TABLE H. Ill (Continued) 


0001 


0002 

000 3 


0004 

0005 

0006 
0007 
OOOB 

0009 

0010 
001 1 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 
0029 
00 30 

0031 

0032 
003 3 

0034 

0035 

0036 

0037 

0038 
003 9 

0040 

0041 

0042 

0043 

0044 


SUBROUTINE CALCIUXl,VXl,UX2,VX2,UX3*VX3,UPXl,VPXl,UPX2,VPX2,UPX3.V 
I P X3 , UX4 , V X4 , U04 , VQ4 , UH3 , VM3 I 

r * #*« *«*******« *********** ********** ********** ************** ******<!** ******** 

C * * 

C * GIVEN THREE APPROXIMATIONS XCN-Zl. X|N-l»n ANO XINI, SUBROUTINE CALC * 

C * APPROXIMATES THE POLYNOMIAL BY A QUADRATIC ANO SOLVES FOR THE ZERO OF * 

C * THE QUADRATIC CLOSEST TO XINJ. THIS ZERO IS THE NEW APPROXIMATION * 

C * X<N*11 TO THE ZERO OF THE POLYNOMIAL. * 

C * * 

C ************* ********** ************************************ ***************** 

DOUBLE PRECISION ARGI.ARG2 

DOUBLE PRECISION UPX 3 , V PX3.UPX2, VPX2, UX 1 , VXi ,UX2 » VX2 »UX3, VX3»UPXI , 

' 1 VPXl »UH3» VH3 ,UH2 , VH2 , UQ3 , VQ3 ,U0 , VD ,U0 f VB ,UC ,VC * UOl SC, VO l SC, UCCC , VC 

2CC.U0EN1 .VDENt ,UOEN2« VDEN2 ,UQ4, VQ4.UX4, VX4*EP$RT»EPS0« EPS,UODO» VOD 
30 ,AAA,BBB,RAO,UAAA,VAAA,UBBB,VBftB 
DOUBLE PRECISION THE TA, ANGLE »UTE ST ,VT£ST 
DOUBLE PRECISION EPS! 

COMMON EPS1.EPS. EPSO*EPSRT. I02.MAX 

UH3=UX3-UX2 

VH3=VX3-VX2 

UH2=UX2-UX1 

VH 2* VX2-VX1 

8BB=UH2*UH2*VH2*VH2 

U03* I UH3*UH?*VH3*VH2 1/9B& 

VQ3=< VH1*UH2-UK3*VH2 l/ti&B 

UODD= 1 .0 *UQ3 

VOD0=V03 

U0= I UPX3- 1 UU00*UPX2— V0D0*VPX2 I 1 +1 UQ3*UPX1- VQ3* VP X 1 1 

V0=( VPX3- I VQDD*UPX2 »UDDD*VPX2 1 I + 1 VQ3*QPX 1 »UG3*VPX 1 1 

UA A A = 2 . 0 *UQ3 

VAAA*2 .0*VQ3 

UAAA-=UAAA + 1 . 0 

UB8B=UD0D*U0D0-VD00*VD0D 

V0&B=VDOO*UODO*UDOO*VDDD 

UCCOUQ3*UQ3-VQ3*VG3 

VCCC=VG3*UQ3*UQ3*VQ3 

UH=< <UAAA*UPX3-VAAA*VPX3}-tUBe&*UPX2-V8BB*VPX2H*IUCCC*UPXl-VCCC*V 
IPXH 

V»=UVAAA*UPX3+UAAA*VPX3»-IVBBa*UPX2*UBBB*yPX21 »♦< VCCC*UPXl+UCCC*V 
IPX1I 

UC=UDDD*UPX3-VDOD*VPX3 

VC=VD0D*UPX3+U0Q0*VPX3 

UDI SC* <UB*UB-VB*VBJ-I4.0*< UD*UC-VD*VC I > 

VD I 5C= 12.0*1 VB *UB 1 I- I 4.0*1 VO*UC*UO*VC 1 I 
AAA*D5QRTIUDISC*U0ISC*VDI SC*VDISC 1 
IF! AAA ,EQ. 0.01 GO TO 5 
GO TO 7 
5 THE TA=0. 0 
GO TO 9 

7 THtTA=OATAN2lVOJSC»UDlSC) 

9 RAD»DSQRT{ AAAI 
ANGLE* TH6T A/2.0 
UIEST = RAD*DCOSI ANGLE » 

VTEST=RAO*DS INI ANGLE 1 
U0ENl=U8*UTEST 
VOENl= VB+VTEST 
UDEN2=UB-UTEST 
VDEN2=VB-VTEST 



TABLE H. Ill (Continued) 


004 5 


ARG1 =UOENl*UD£Nl + VDENl*VOEAIl 

0046 


ARG2=UOEN2*UDEN2+VOEN2*VOEN2 

0047 


AAA*l)SQRT IARGL ) 

0048 


BBB=DSQRT{ARG2) 

0049 


IFI AAA.LT.B6B1 GO TO 10 

0050 


IF(AAA.EO.O.O) GO TO 60 

0051 


UAAA=-2.0*UC 

0052 


VAAA=-2.0*VC 

0053 


UQ4= tUAAA*UOENL*VAAA*VOEKl t/ARGI 

0054 


VG4M VAAA*U0£N1— UAAA*V06N1 1/ARGl 

0055 


GO TO 50 

0056 

10 

I F ( 688 < E0.0 ( 0) GO TO 60 

0057 


UAAA~- 2* 0*UC 

0058 


VAAA=-2.0*VC 

0059 


UQ4=(UA AA*UDEN2+ VA AA*VD£N2 ) / ARG2 

0060 


V04=IVAAA*UDEN2-UAAA*V0EN2I/ARG2 

0061 


GO TO 50 

0062 

50 

UK4»UX3MUH3*UQ4-VH3*VQ4) 

0063 


VX4=VX3H VH3*UQ4*UH3 *VQ4 ) 

0064 


RETURN 

0065 

60 

UQ4*1.0 

0066 


VQ4*0 .0 

0067 


GO TO 50 

0068 


ENO 
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TABLE H, 1T1 (Continued) 


0001 


0002 


0003 

0004 

0005 

0006 
000 ? 
0008 
0000 
0010 
001 1 
0012 

0013 

0014 

0015 

0016 

0017 

0018 
001*1 
0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 
0029 
00 30 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 


SUBROUTINE MULLE RtNP.UA.VA.NAPP.UAPP.VAPP.NROOT.UROOT.VROOT, IROOT. 

1 X START, XENO, NOPOLY, UR APP , VRAPPI 

C ************************************************************+****#*****$***'i t 

c * 

C * MULLER'S METHOO EXTRACTS THE ZEROS AND THEIR MULTIPLICITIES OF A 
C * POLYNOMIAL OF MAXIMUM DEGREE 25. THROUGH THREE GIVEN POINTS THE 

C * POLYNOMIAL IS APPROXIMATED BY A QUADRATIC. THE ZERO OF THE QUADRATIC 

C ♦ CLOSEST TO THE OLD APPROXIMATION IS TAKEN AS THE NEW APPROXIMATION. 

C * IN THIS MANNER A SEQUENCE IS OBTAINED CONVERGING TO A ZERO. 

C * 

C ********** ******** ** * ** ******* ************** * ********* * ******************4** 

DOUBLE PREC1 SI ON UPX3 » VPX3 ,UPX2 , VPX2 ,UROOT ,V ROOT ,UX 1 , VX 1 , UAPP, V APP 
1,UX2,VX2,UWURK ,VW0RK,UX3, VX3,U0tVB. UX4.VX4.UA. VA,UPX l, VPX1 ,URAPP,V 
2RAPP.UPX4. VPX4 ,EPSRT ,EP$0, EPS ,CCC ,E PSM, UH3, VH3.UQ4, VQ4, ABPX4, ABPX3 
3 iQOQ . XSTAR T * XENO 

DIMENSION URODT I 2 5) , VROOTI 25 1 , MULTI 2 5) , UAPP 1 25 , 3 ) , VA PP( 2 5 , 3 I .UWORK 
1(261. VWORKI 26)*Uft(26),Vfl(26), UA (26I.VAI26I ,<JRAPP I 25, 3) , VRAPP I 2 5 , 3 1 
LOGICAL CONV 

COMMON EPSM. EPS, EPS0,EPSRT,I02.MAX 
DATA PNAME, ONAME/ 2HP ( » 2HD( / 

EPSM=0.0000 
EPS RT = 0. 999 
NftOQT *0 
IROOT=0 
IPATH=i 
NOMULT=0 
NAL TER”0 
I T IM£=0 
I APP-1 
1T€R=1 

IF(NAPP.NE.O) GO TO 10 
NAPP=NP 

CALL GENAPP ( UAPP, VAPP.NAPP.X START) 

GO TO 27 

18 DO 25 1= l »NAPP 

UAPP( I .1 )=0.9*LfAPP( I , ? 1 
V APP( I , 1 1 *0. 9* VAPP M ,2) 

UAPPU ,31*1* 1*UAPP( I ,21 
25 VAPPtl ,31=1. L*VAPP( I ,2) 

27 KKK=NP* 1 

OQ 30 1=1, KKK 
UWORX ( I >— U A ( I > 

30 VWORK(I)=VA( I | 

NWCWK=NP 

40 UX l =U A PP I I APP, 11 
VXl=VAPP(IAPP,ll 
UX2=UAPP( I APP , 2 ) 

VX? = VAPP< l APP , 2 I 
UX3=UAPP ( I APP, 3) 

VX3=VAPP( IAPP, 31 

CALL HDRNERINWGRK .UWORK , VWORK , UX l , VX 1 , UB, V8» UP XI , VPX l 1 
CALL HORNE R (NWORK, UWORK, VWORK, UX2 , VX2, UB, VB ,UPX2, VPX 2) 

CALL HORNER (NWORK, UWORK, VWORK, UX3.VX 3, UB ,VH , UP X 3, VPX3) 

50 CALL CALC(UX1,VXI,UX2»VX2,UX3,VX3,UPX1»VPX1,UPX2,VPX2,UPX3,VPX3,UX 
14,VX4,UQ4,VQ4, UH3 , VH 3) 

60 CALL HORNfc'RINWORK , UWORK, VWORK, UX4, VX4, UB , VB , UPX4 , VPX4 1 
ABPX4=0SQRT(UPX4*UPX4*VPX4*VPX4 I 
ABPX3»0SQRT(UPX3*UPX3'-VPX3*VPX3I 


* * 


TABLE H. III. (Continued) 


00 44 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 
00 53 

0054 

0055 

0056 

0057 
00 5 B 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 
0076 

0075 

0076 

0077 

0078 

0079 
0030 
00&1 
0032 

0083 

0084 
0035 
00 86 

0087 

0088 

0089 

0090 

0091 

0092 

0093 
009 A 

0095 

0096 

0097 

0098 

0099 

0100 


IFIABPX3.EG.0.01 GO TO 70 
QQQ= ABPX47 ABPX3 
If (QQQ.LE.10.1 GO TO 70 
UQ4 =0.5 *UQ4 
VQ4=0. 5* VQA 

UX4=UX3+I UH3*UQ4-VH3*VQ4> 

VXA = VX3tl VH3*UQA«-UH3*VQ4) 

GO TO 60 

70 CALL TESTIUX3, V X 3 , UX4, VX4,C0N V) 

IFICONVl GO TO 120 

If ( ITEH.LT .MAX 1 GO TO 110 

CALL ALT ER!U APP I I APP, l 1 , VAPP! IAPP , 1 1 , UAPPI I APR, 21 ,VAPP( I APP, 2 1 i UAP 
IP! IAPP.31 ,VAPP{ I APP, 3 »,N ALTER. I TIME! 

If (NALTER.GT.5) GO TO 75 
IT ER= 1 
GO TO AO 

75 IFU APP.LT.NAPP) GO TO 100 
lFlXEND.EQ.0.0 1 GO TO 77 
I F { XSFART.GT.XE NO ) GO TO 77 
NAPP-NP 

CALL GENAPP<UAPP»VAPP,NAPP,XSTAftT> 
l APP=0 
GO TO 100 
77 WRITE! 102,10901 
KKK=NWORK» l 

WRITE! 102,10351 ! ONAME, J ,UWORMJ 1 ,VWORM Jl , JM ,M(K» 

80 I F ( NROOT . E 0. 0 I GO TO 90 
IF! IPATH.EQ. 11 GO TO 82 

81 1 PATH*2 

CALL BETTER! UA,VA»NP, UROQT , VROOT # NROOT »UR APP * VRAPP , I ROOT , MULT I 

RETURN 

82 I F ( NROOT . E Q, 0 ) GO TO 90 
IF! IRODT.EQ.O) GO TO 85 
WRITE! 102, 10801 

DO 55 1 = 1*1 ROOT 

55 WRITE (102, 10851 I , UROOT III . VROOT I II . URAPP 1 1 , 2) • VRAPP ( I , 2 1 
IF UROOT.LT. NROOT) GO TO 85 
GO TO B7 
85 KKK= l ROOT + 1 

WRITE! 102,1006 1 ( I , URQOT ! I ), VROOT III , l=KKK, NROOT) 

87 IF! IPATH.EQ. II GO TO 01 
RETURN 

90 WRITE! 102 ,10701 NOPOLV 
RETURN 

100 IAPP=IAPP*1 
I TER=l 
NAL T6 R = 0 
GO TO AO 

120 NRQOT^NROOTM 
I ROOT=NROOT 
MUL T I NROOT 1 = 1 
NOMULT C N OMUL T*l 
UROOTlNROOT)=UXA 
VROOT ! NROOT 1 »VX A 
UR APP (NROOT, 1 1 *UAPP( IAPP ,1 I 
V R APP ! NROOT , 1 1 =V AP P ( IAPP, 11 
URAPP I NROOT ,2 1 =UAP P( IAPP.2I 
VRAPP! NROOT, 21 =VAPP! IAPP.2! 



TABLE H. Ill (Continued) 


0101 

0102 
0103 
010* 

0105 

0106 

0107 

0108 

0109 

0110 
01 L l 
0112 
0113 
Oil* 

0115 

0116 

0117 

0118 

01 19 

0120 
0121 
0122 
0123 
012 * 
0125 
01 26 
0127 
01 2 B 

0129 

0130 

0131 

0132 

0133 

0 13* 

0135 

0136 

0137 

0138 

01 39 

01 *0 
01*1 
01*2 

01 *3 
01 ** 

01*5 

01*6 


URAPP{NROOT,3l=UAPPIIAPP t 3) 

VRAPP!NR00T f 3)=VAPP! IAPP.3) 

125 IF1N0MULI.LT. NP> GO TO 130 
GO TO eo 

130 CALL HORNER ( NWORK »UWORK * VWORK , UX *» VX* »UB * VB , UPX*» VPX*) 

NWORK=NWQR K- 1 
KKK = NWORK 1 
00 1*0 I'l.KKK 
UWORK«n=UBU) 

1*0 vworm n=voi n 

CALL HORNER(NWQRK,UWQRK,VWOftK,UX*,VX*,US,VB,UPX*,VPX*l 

CCC=D50RT (UPX**UPX*«-VPX**VPX*l 

IF1CCC.LT. epsmj GO to 150 

1F1 NWORK »GT .2 ) GO TO 75 

IROOT=NRUDT 

KKK=NwORK4- 1 

00 1*5 1=1, KKK 

UB ( I 1 =UWORK( KKK#- 1- l I 
1*5 V8( I)=VWORK!KKK+l-l ) 

CALL QUAO(NWORK,U8,V8,NRGOT f UROOT,VRODT) 

GO TO 80 

150 MULT ( NROOT 1 = MULT 1 NROQT I ♦I 
NOMULT =N0MULT*1 
GO TO 125 
110 UX 1=UX2 
VX1 = VX2 
UX2=UX 3 
VX 2-VX3 
UX3=UX* 

VX3=VX* 

UPXl=UPX2 
VPX 1 =VPX2 
UPX2=UPX3 
VPX2=VPX3 
UPX3=UPX* 

VPX3=VPX* 

1 TER= 1 TER ♦ 1 
GO TO 50 

1090 FORMAT!///, 1 X , 65HCOEFF I C 1 ENTS OF OEFLAT £0 POLYNOMIAL FOR WHICH NO 
l ZEROS WERE FOUND// I 

1080 F0PMAT1///1X ,L 3HK00T S OF GCX » , 8 3X, 2 1HIN I T I AL APPROXIMATION//! 

1070 FORMAT!//, *3H NO ZEROS WERE FOUND FOR POLYNOMIAL NUMBER ,12) 

1086 FORMAT ! 2X » 5HRQ0T ! , I 2 , *Hi = ,023.16,3H ♦ ,023, 16,2M I » 19X , 2 3H50LVED 
l ay DIRECT METHOD! 

1035 FURMAT t 3X »A2 ,1 2 ,*H) = ,023.16,3H ♦ ,Q23.15,2H I) 

1085 FORMAT ( 2 X , 5HRQ0T I , | 2 , *H) = ,023.16,3H ♦ ,023. 16,2H I , 18X ,D23. Id , 3H 
1 +■ ,02 3. 16, 2H I) 

1000 FORMAT! 3(12, IX ) , 9X, I3.8X, 3106.0, IX) , 13X, 2 (07.0, IX I , 1 1) 

ENO 
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TABLE H. XII (Continued) 


QOOl 


0002 

0003 

000 * 

0005 

0006 
0007 
0000 
0009 

00 to 
0011 
0012 
0013 
001 * 

0015 

0016 
0017 
ooie 

0019 


SUBROUTINE GEN APR I APPR, APP I, NAPP, XST ART > 

C *********************************** ******************************** ********* 

c * * 

C * SUBROUTINE GENAPP GENERATES N INITIAL APPROX I MAT IONS* WHERE N IS THE * 

C * DEGREE OF THE ORIGINAL POLYNOMIAL. * 

C * * 

C *********♦******************#*********************>***** ********************* 

OClUBLE PRECISION APPR , APP I , XSTART, EPSI , EPS2 , EPS3 , BETA 
OOU8LE PRECISION EPSH 
DIMENSION APPRI25.3I ,APPM25t3> 

COMMON EPSM.EPS I, EPS 2, EP S3 ,102. MAX 
IF I X START .E 0.0 .0 ) X$TART*0.5 
BETA=0. 261799* 

OO 10 I 3 1 ♦ NA PP 

APPR (I ,2 >=XSTAR.T*DCOSlBETA) 

APP I 1 1 , 2 > = X STAR T*DS INI BETA ) 

BET A= BETA *0.5235986 
10 XSTART*XSTART*0. 5 
00 20 1= 1 ,NAPP 
APPR (I , 1 1 *0.9* APPR l I ,21 
APPlU,n = 0.9*APPI«I,2) 

APPR! I , 3> = l.l*APPRI 1, 2> 

20 APPI II ,3) = l.I*APPI I I ,2) 

RETURN 

ENO 
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TABLE He III (Continued) 


rOOOl 


0002 

0003 

0004 

0005 

0006 

0007 

oooa 

0009 

ooto 

0011 

0012 

0013 

0014 

0015 

0016 
0017 

oo i e 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 


0029 


00 30 
0031 


•SUBROUTINE AIT Eft < X 1 R , X 1 1 , X2 R , X 2 I , X 3 R , X 3 I , N AL T E R , ITl M E I 
C #************##** + (**** ***««■ ****************** ******************************* 

C * * 

C * SUBROUTINE ALTER ALTERS THE INITIAL APPROXIMATIONS WHICH PRODUCE NO * 

C * CONVERGENCE TO A ZERO. THIS IS OONE A MAXIMUM OF 5 TIMES FOR EACH ROOT. * 

C * * 

C *************** ****** *************** A******#*#*******#***-****#***** ** *9 ***** 

DOUBLE PRECISION X IR , X 1 1 , X2R » K2 | , X3R ,X3 1 ,E PS l »E PS2 .EPS3 . R. BETA 
DOUBLE PRECISION EPSM 
COMMON EPSM, EP S 1 , EPS 2 ,EPS3 , 102, MAX 
IFUTIME.NE.01 GO TO 5 

itime*l 

WRITE! 102,1010) MAX 
5 IFINALTER.EQ.O ) GO TO 10 

WRITE I 102,1000) XI R, XI I ,X2R,X2I ,X3R,X31 
GO TO 20 

10 R^OSQR TlX2R*X2R*X2l*X2l) 

BETA=0ATAN2( X2I ,X2R) 

WRITE! 102, 10 20 1 XIR, XU , X2R, X2l.X3R.X3l 
20 NAL TEB=NALTER*1 

IF! NAL TER.GT.5I RETURN 
GO TO 130,40,30, 40, 301, NAL TER 
30 X2R*-X2R 
X2 I =-X2 1 
GO TO 50 

40 6ETA=BETA*l. 0471976 
X2R=R*DC0S! BETA » 

X2I=R*0SIN(BETA» 

50 X IR = 0. 9 + X2R 
XH=0.9*X2I 
X3R=1.1*X2R 
X3I =1 . l+XZI 
RETURN 

1000 FORMAT! IX, 5HXI = ,D23.L6,3H ♦ ,023.16,2H I ,10X, 22HALTERED APPRQXIM 
1ATI0NS/IX, 5HX2 = .D23.I6.3H ♦ ,D23.16,2H I/IX.5HX3 = ,D23.16,3H ♦ 

2, 023. 16, 2H I / > 

1020 FORMAT UH0,5HXi * ,023.16,3H ♦ ,D23. 16, 2H I , 10X.22HINIT I AL APPAOXI 
l MAT IONS/ IX, 5HX2 = ,D23.16,3H ♦ .023. 16.2H I/1X.SHX3 = ,023.l6,3H ♦ 

2 ,023. 16, 2H 1/ > 

1010 FORMAT! ///IX, 54HH0 CONVERGENCE FOR THE FOLLOWING APPROXIMATIONS AF 
ITER ,I3,12H ITERAI IONS.// ) 

END 
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TABLE H.III (Continued) 


0001 SUBROUTINE BETTER <UA ,VA*NP . UftOOT, VRQOT *MRQOT .URAPP.V RAPP. IRGOT.MUL 
IT I 

c *••*******•*******•***♦**•**•*•**•*****************•***•**••♦•*••*♦*****♦*** 

C • ' - * 

C * SUBROUTINE BETTER ATTEMPTS TO IMPROVE THE ACCURACY OF THE ZEROS FOUND * 

C * BY USING THEM AS INITIAL APPROXIMATIONS WITH MULLER'S METHOD APPLIED TO * 

C • THE FULL » UND6FLATE0 POLYNOMIAL. * 

"C ‘ * - , • ■ * 

C *+*****♦♦*********************•***••♦•***•♦*********♦***********♦*•********* 

0002 DOUBLE PRECISION UROOT .VROOT.UA, VA, UBAPP, VBAPP ,UXl , VXl , UX2 , VX2 ,UX3 
V 1 ,VX3 ,UPXt , VPXI »UPX2 * VPX2 .UPX3.VPX3.UB, V8» UROOTS. VROOT S.EPSRT.UX4.V 

; 2X4,URAPP,VRAPP,EP$0,EPS.UQ4,VQ4.UH» ( VH3 

0003 DOUBLE PRECISION EP$M 

0004 LOGICAL CONV 

0005 OTMENSION UROOTI25) , VRQQTI25I .UAI26) » VAI 26) , UBAPPI 25. 31 .V8APP125.3 

l).UBI26).VBt26l,UROOTS(25l«VROOTSt25)»URAPPI25*3) »VRAPPt25*3t «MULT 
31251 •• ' 

0004 COMMON EPSM.EPS. EPS0,EPSRT,I02, MAX 

0007 iFINROOT.LE.il RETURN 

0008 L=0 

0009 00 to l-I.NROOT 

0010 UBAPPI l«l I* UROOT 1 1 1 *EPSRT 

0011 V8APPI I rl I "VROOT I I )*EPSRT 

0012 UBAPPI 1.2 MUROOTU I 

0013 VBAPPI I.2I-VR00TU I 

0014 UBAPPI I, 3 I "UROOT I I > ♦! 2.0-EPSRT > 

0015 10 VBAPPI I .3 1» VROOT 1 1 I *< 2 .O-EPSRT I 

0016 DO 100 J=I .NROOT 

0017 UXI-U8APPI j.ll \ 

0018 VXI * VBAPPI J, 1 ) 

0019 UX2»UBAPP| 0,2) 

0020 VX2= VB4PPI J .2 1 ' ' 

0021 UX3»U8APP| 0,31 

0022 VK3=VBAPPI J.3I 

0023 ITER"! *' 

0024 CALL HORNERINP.UA.VA.UXl.VXl.UB.VB.UPXl.VPXn 

0025 CALL HORNER (NP .UA-i VA.UX2tVX2.U8.VB.UPK2. VPX2 1 

0026 20 CALL HORNERINP ,UA, VA .UX3.VX3.U8, VB.UPX3.VPX3) 

0027 CALL CALCiUXl , VXI ,UX2,VX2*UX3, VX3.UPXI, VPXI. UPX2.VPX2.UPX3.VPX3.UX 
14.VX4.U04, V04.UH3.VH3I 

0028 30 CALL TEST (UX3. VX3.UX4.VX4.CONV) 

0029 ) F I CONV I GO TO 50 

0030 IFMTER.LT.MAXI GO TO 40 

0031 WRITE! 102, 1000 ) J , UROOT IJ I , VROOT I J ) , MAX 

OC 32 WRITE! 102,10101 UX4.VX4 •' 

0033 IF ( J *L T . I ROOT I GO TO 33 

0034 IF! J.EQ. IRQOTI GO TO 35 

0035 GO TO 100 

0036 33 KKK" I ROOT-1 

0037 DO 34 K" O.KKK ' - 

0038 URAPPIK, l ) *URAPP I K+l , II 

0039 VRAPP(K,l|=VRAPPLK*l»ll 

0040 URAPPIK, 2I»URAPP|K*1 ,21 ’ 

0041 . VRAPP<K,2)=VRAPP<K*t,Z) 

0042 URAPPIK, 3) "URAPPIK* l ,31 

0041 34 VRAPP(K,3l«VRAPPIK*l,3) 

0044 35 I ROOT- I ROOT- 1 

0045 GO TO 100 



.. TABLE . H . 1 1 1 . (Con t inued ) 


0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 
0067 
0060 
0069 
00 70 


0071 

0072 


40 UX1=UX2 
VX !■= VX2 
UX2=UX3 
VX2=VX3 
UX3=UX4 
VX3=VX4 
UPX 1 -UPX2 
VPX 1-VPX2 
UPX2=UPX3 
VPX2= VPX3 
lTER*lTERn 
GO TO 20 
50 l=L*l 

UROOTS (LI =UX4 
VROGTSn.)*VX4 
100 CONTINUE 

IFlL.EQ.O) GO TO 120 

do no 1*1,1. 

UROUT « 1 l*URQQTSI 1 I 
110 VROOTt II *VROQTSI I I 
NRClOT=L 
RETURN 
120 NRCtOr=0 
RE TURN 

1000 FORMAT I // 242 H IN THE ATTEMPT TO IMPROVE ACCURACY, R0QT(,I2,4H1 * , 
1023. 16, 3H t ,023. 16,2H I/24H DIO NOT CONVERGE AFTER ,13, UH ITERAT 
2 IONS) 

I0L0 FORMAT 1 30H THE PRESENT APPROXIMATION IS .D23.16.3H ♦ ,D23.16,2H 1/ 
1/1 
END 
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TABLE H. Ill (Continued)' 


0001 


0002 

0003 

0004 

0005 

0006 

000 7 
0000 

• 0009 
00 1 0 

001 1 
00 12 

0013 

0014 

0015 
0,016 

0017 

0018 
0019 


SUBROUTINE TEST<UX3,VX3 ,UX4,VX4,CONV> 

c *********************** ***************************************************** 
c * 0 

C * SUBROUTINE TEST CHECKS FOR CONVERGENCE OF THE SEQUENCE Of APPROX- * 

C * 1 HAT IONS BY TESTING THE EXPRESSION * 

C * ABSOLUTE VALUE OF I X ( N* l > -X I N I J / ABSOLUTE VALUE OF XIN+ll. * 

C * WHEN IT IS AS SHALL AS DESIRED. CONVERGENCE IS OBTAINED. * 

C * ' m 

C **************♦*********************************************************,*** 

OOUBLE PRECISION UX3 , VX 3 ,UX4, VX4 , EPSR T, E PSO , EP S, A AA, UDUMMY, VDUHMY, 

10EN0H 

DOUBLE PRECISION EPSM 
LOGICAL CONV 

COMMON EPSH, EPS, EPSO.EPSRT ,102, MAX 
UOUMMY = UX4-UX3 
VDUMMY = VX4— V X3 

AAA-OS OR T 1 UOUMMY *UDUHMY ♦VOUMMY* VOUMMY ) 

OENOM=DSQRT (UX4*UX4* VX4* VX4I 
IF< DEN0M.LT.EPSO1 GO TO 20 
! f ( A A A / DENOM.L T . EPS I GO TO 10 
5 CflNV = . FALSE. 

GO TO 100 
10 CONV=. TRUE. 

GO TO 100 

20 IM AAA.LT.EPSO) GO TO 10 
GO TO 5 
100 RETURN 
END 


0001 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 


SUBROUTINE HORNER I NA , UA , VA ,UX . VX ,UB, VB , UPX, VP X ) 

C ********** ******* ***************************** *********************** # **** ## 

C * HORNER * S METHOD COMPUTES THE VALUE OF THE POLYNOMIAL PIXI AT A POINT 0 * 

C * FACTn” IX o[ VIS,ON ,S USE0 T0 0EFLArE THE POLYNOMIAL BY DIVIDING OUT THE * 

e * * * 

C ****** + *************+++**********m*mmm ****************************** 

DOUBLE PRECISION UX , VX , UPX, VPX , UB , VB , UA , VA , 

DIMENSION UA1 2& I , VAI 26 I , UBI 261 , VBI 26 I 

UB( 11 =UA< 1 1 ' 

VB { 1 l = VA{ 11 

NUM=NA*1 

DO 10 I =2 ,-NUM 

UBU j=UA( L I ♦ <UB( I - II *UX- VBI l- U *VKl 
10 VBi I )=VA( I I MV8{ 1-1 1 *UX*UBI I-l I *VX) 

UPX=UH 1 NUMl 

VPX= VBI NUH I * 

RETURN 

END 



